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1. IDBNTIFICATION 

CREW SYSTEM VIDAR DATA REDUCTION PROGRAM 

CSVIDR 

Q939 

H. B. Van Wie 

January 1976 

JSC, Houston, Texas 

Contract number NAS 9-12200 

FORTRAN 

UNIVAC 1108/1110 
EXEC 8 

decks and/or CUR/PUR tape records: 

Lockheed Electronics Company, Inc,, Data 
Processing Systems Department maintains all 
program tapes associated with this program. 
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2 . ABSTRACT 


The Crew System Vidar Data Reduction (CSVIDR) program was written 
to process selected portions of data acquired from long term 
tests of Space Shuttle crew equipment. Data is recorded on a 
seven-track computer compatible tape (CCT) using the Vidar 
Autodata Eight Processing System located in Building 7. The 
input tape is in a six-bit binary coded decimal (BCD) format. The 
1110 hardware conversion option is used to convert all data from 
a BCD format to Fieldata since the majority of the data is output 
without further conversion. 

Data is retrieved from a character stringy calibrated, tabulated, 
printed, and output on a fixed-sample-rate tape for use aS input 
to a general-purpose plot program. 
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3. HISTORY 


The CSVIHR program is authorized by job order 83-157, task 
agreement 20. The design for the CSVIDR program was approved 
in August 1975, and coding was initiated at that time. Existing 
subroutines for curve-fit and character-string manipulations were 
used as necessary by the driver program. The curve fit sub- 
routine, CURV61, is documented by both the FIT73 program (Q417) , 
LEC-1379, February 1974, and the BIOFIT program (J252) , LEC-1380, 
January 1974. Character string manipulation subroutines were 
developed in November 1974 for use with the Phase A Integrated 
Structural Analysis System (Phase A ISAS) . 


3-1 



4. ANALYSIS 


The CSVIDR program was written to process selected portions of 
data acquired from long term testing of Space Shuttle crew equip- 
ment recorded on a Vidar Autodata Eight Processing System located 
in Building 7. A maximum of 40 channels of data may be recorded 
on each data tape, and selected processing of any or all of the 
channels can be provided by the CSVIDR program. 

Data from each channel is retrieved from a character string, and 
the appropriate calibrations are applied. These calibrations 
may be supplied in the form of ordered pairs of voltages and 
engineering units (EU) or of coefficients for a polynomial equa- 
tion. A maximum of 21 x^airs of points or coefficients for as • 
up to a fifth- order polynomial equation may be used. For each 
set of calibration points supplied, the CSVIDR program calls the 
CURV61 subroutine which performs a curve fit and calculates the 
coefficients for the equation of the line which contains those 
points. 

The data acquisition system has the capability to record the data 
in two distinct modes. The limits for low, medium, and high 
ranges for each parameter are set by the operator prior to the 
test. During the test, as data is being recorded for each opera- 
ting channel at a set sample rate, the data from one or more 
channels may exceed preset ranges. When this occurs, a scan of 
data from those parameters • which exceeds the ranges is inter- 
spersed in the set sample rate data. The constant sample rate 
data is known as "log” data, and the interspersed data is called 
•'limits” data. Each is output separately on a tabulated listing. 
The formats of the log and limits mode data are shown in appen- 
dix F. An output tape is generated containing the fixed-sample- 
rate data from which plots are made using a general-purpose plot 
program. v 
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5. 


INPUT DP.SCRIPTION AND FORMATS 


The input tapes are seven-track BCD tapes of 556 bits per inch 
(bpi) density recorded on the Vidar Autodata Eight Processing 
System. Bach word on the tape consists of 14 characters, 
although the lAth character is a selected end-of-word (EOW) char- 
acter and is not treated as a data character. Each character 
consists of six bits. 


A scan of data consists of time in hours and minutes as the first 
word with 1 to 40 data Words. There are 36 scans of data per 
record. The minimum record size is 72 words (36 scans of time 
plus 1 data word). The maximum record size is 1476 words (36 
scans of time plus 40 data words). 


The word format by character is shown below: 


Gharacter: 1 2 

Time: H H 

Log data: T B 

Limits data: T 

Limits data: T * 

Limits data: T 

Overload: T B 


3 4 
: M 
I I 
I I 
I I 
I 1 
I I 


5 6 
M B 
I P 
I P 
I P 
I P 
I B 


7 8 
B B 
D D 
D D 
D D 
D D 
B B 


9 10 
V, B 
D D 
D D 
D D 
D D 
B B 


where : 


B = blank 

S = selected EOW character 
D = data character 
H = hours ■ 

M = minutes 


11 12 13 14 

B B B S 

D E U S 

D E U S 

D E U S 

D B U S 

B B B S 


T = type (1 to 7) 

I = channel identity 
P = polarity (- or blank;) 
E = negative exponent 
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U = units (V, ®F, or ®C) 

* = high range 
. = middle range 
- = low range 

The first word in each record contains time followed by data words 
from 1 to 40 until the data scan is ended, and another time v/ord 
starts the next scan. The number of data words in a scan may 
vary, so the time word location is variable and is detected by 
examining the third character of each word for a colon, which 
is unique to the time word. 

The following codes are used to determine the type and range of 
the data words depending on the value of character 1: 

1 = ±0.1 V 5 = °C 

2 = ±1.0 V 6 = °F 

3 = ±10. 0 V 7 = spare 

4 = auto ranging 

The data within the same record may be recorded in the log and 
limits modes. In the log mode, only the second character of each 
data word is blanjc and all parameters that are operating are 
sampled at a given sample rate; e.g., 1 sample every 15 minutes. 

In the limits mode, the second character of each data word is 
either an asterisk, period, or minus, which indicates that the 
data value is in the high, middle, or low portion, respectively, 
of the range for which limits were set prior to recording the 
data. The limits data does not have a set sample rate but rather 
is output onto the data tape when any data value changes from one 
limits range to another. 

If the input data exceeds the voltage range selected for a param- 
eter, an overload condition exists in which case only the type 
and channel identity are provided, and the remaining characters 
are blank. 
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Characters 3, 4, and 5 of each data word represent the channel 
identity and may have a value from 000 to 039 to represent the 
40 channels. 

The polarity indicated by character 6 of each data word specifies 
whether a data value is negative or positive. For a positive 
number, the character is blank; for a negative number, a minus 
sign appears. 

The magnitude of the data value is determined using the five data 
characters 7 through 11 and the negative exponent, character 12. 
The following example illustrates how this is calculated: 

Character: 7 8 9 10 11 12 • ’ 

Value: 007 5 6 1 

Means: 00756 x 10“^ or 75.6 

The decimal is assumed to be at the right of character 11 and is 
moved to the left by the number of spaces specified in character 
12. Character 13 of each word designates whether the engineering 
units are volts, degrees Farenheit, or degrees Centigrade. 
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6. OUTPUT DESCRIPTION AND FORMATS 


Time history tabulations and a fixed-sample-rate tape are the 
required output of the program. Tabulations in different formats 
are provided for the limits data and the log data. The format for 
the limits data tabulation is illustrated below. 


Time 

DDD:HH:MM 

Channel 

Value 

EU 

Code 


004 

74. 8 

°F 

• 

001:08:11 

012 

77.4 

°F 

• 


013 

7.107 

V 

* 


015 

23.4 

°C 



004 

76.6 

°C 

A 

001:08:12 

013 

6.865 

V 

" 


015 

22.3 

°C 

- 


The log data is f ixed-sample-rate data and is illustrated in 
table I and tabulated in the format shown in appendix F. 

The output tape is a fixed-sample-rate tape of the log data only, 
with 42 words per scan (time, 40 data words, and one dummy word); 
on this tape, only the requested channels have data, and the 
unrequested channels are filled with a default value (all 36 bits 
set to 1) . , 

The output tape consists of the following characteristics: 

• Standard seven-track digital magnetic tape 

• 800 bpi packing density 

• Odd parity 

• Buffered (non-FORTRAN written) 

• Forty-two 36-bit words per scan 
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Time output in integer milliseconds 
Data in floating point EU 
Twelve scans per record 


TABLE I. - LOG DATA TEST TITLE INFORMATION 



Time 

Channel 




Units 

of measurement 




DDD:HH:^!M 

1-lD 

DEG C 

DEG C 

DEG F 

DEG C 

DEG C 

DEG C 

DEG F 

DEG C 

DEG C 


11-20 

DEG F 

PSIA 

DEG F 

DEG F 

DEG F 

DEG F 

DEG F 

KATTS 

DEG F 


21-30 

VOLTS 

VOLTS 

VOLTS 

LB/KR 

PSIG 

VOLTS 

VOLTS 

VOLTS 

PSID 


31-40 

GAL/SEC 

GAL/ SEC 

GAl/SEC 

G.A.L/SEC 

PSID 

GAL/MIN 

GAL/MIN 

GAL/MIN 

GAL/MIN 

001:08:06 

1-10 

24.6 

25.1 

23.8 

24.2 

26.1 

23.5 

25.7 

24.8 

26.3 


11-20 

7 7. .9 

-76.3 

75.4 

75.8 

77.2 

76.5 

78.1 

76.6 

75.7 


21-30 

0.0634 

0.0963 

-0.245 

0.418 

0.623 

2.832 

-4.691 

7,529 

5.618 


31-40 

0.523 

0.689 

0.419 

0.732 

0.613 

29.53 

31.76 

33.24 

32.68 

001:08:21 

1-10 

25.1 

25.3 

23.9 

24.0 

26.3 

23, 3 

25.9 

24.7 

26.5 


11-20 

78.0 

76.5 

75.6 

76.0 

77.2 

76.8 

78.1 

76.7 

75.6 


21-30 

0.0649 

0.0932 

-0.236 

0.436 

0.635 

2.845 

-4.723 

7.613 

5.630 


31-40 

0.545 

0.707 

0.451 

0.767 

0.610 

30.07 

31.99 

33.11 

32.75 

001:08:36 

1-10 

25.4 

25.6 

■23. 8 

24.1 

26.6 

23. 0 

26.0 

24.9 

26.4 


11-20 

78.2 

76 . 5 

75.7 

76.2 

77.1 

76.7 

78,1 

76.8 

75.7 


21-30 

0.0657 

0.0925 

-0,222 

0.441 

0.648 

2. 863 

-4,739 

7.636 . 

5.641 


31-40 

0.563 

0.722 

0.476 

0.789 

0.604 

30.15 

32.12 

32.96 

32.81 


sg 




i 

S3 







DEG C 
DEG F 
VOLTS 
GAL/MIN 

25,5 

74.0 

3.685 

30.07 

25.4 

74 . 2 
3.595 

30.24 

25.3 

74.3 
3.704 

30.35 


W«t' 


7. RESTRICTIONS 


The driver program, CSVIDR, is a special purpose program \\rhich 
uses parameter statements to permit minor changes, but the CSVIDR 
program was designed for the Vidar Autodata Eight Processing Sys- 
tem. In its current configuration, the use of FASTRAND input/ 
output (I/O) is discouraged since the record length of both the 
input and output tapes are not optimum for 36-bit words or 28-word 
sectors. 



8. FACILITY USAGE REQUIREMENTS 

The CSVIUR program requires less than 20,000 elements of core 
and uses external assignments for three tapes and one FASTRAND 
file. Provision is made for only one output tape. FORTRAN I/O 
and NTRAN languages arc used. 



8-1 



9. RUNNING TIMB 


The CSV IDR program requires approximately 0.00315 seconds to 
process one data sample. If the typical input tape contains data 
for 30 channels for over 40 days with one scan of data every 
15 minutes, then: 

(1) Compute seconds per scan: 

0.00315 seconds x 30 channels = 0.09450 seconds/scan 

(2) Determine total scans: 

From (40 days x 24 hr/day x 60 min/hr)/15 min/scan = 

3840 scans in 40 days. 

(3) Calculate EXEC 8 time in minutes: 

0.09450 seconds/scan x 3840 scans = 6 minutes . 
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10. NONSTANDARD SYSTEM REQUIREMENTS 

The CSVIDR program runs on the UNIVAC 1110, EXEC 8, system and 
utilizes the hardware BCD to Fieldata conversion feature. 
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APPENDIX A 


RUNNING INSTRUCTIONS 



APPliNDIX A 


RUNNING INSTRUCTIONS 

The CSVIDR program reads and analyzes the lead cards to determine 
the channels to process, the types of calibrations necessary, and 
the assignment of the I/O devices. Time slice information and 
the EOW character are also input by lead cards. The necessary 
default values are calculated, and the initial conditions are 
printed. 

If an error is detected while reading the lead cards, the remain- 
ing lead cards are read, and an error message is written. The 
default situation of no lead cards also causes a diagnostic mes- 
sage, but the program attempts to retrieve and output raw data 
for all channels for the entire data tape. 

A. 1 LEAD CARDS 

• Type 1 (title card) ' 

The first lead card read is a title card and may contain up to 
72 alphanumeric characters. The title card information is 
displayed as test title information for all tabular output. 

• Type 2 (time card) 

Lead card type 2 has the word TIMEA left justified in the 
first five card columns and contains fields available for time 
in days, hours, and minutes (DDD:HH;MM) over a start/stop time 
interval. An additional field is available to provide the 
first time at the start of the tape. Since only hours and 
minutes are present on the input data tape, it is necessary 
to input a value for days to provide for a day rollover. 

• Type 3 (tape I/O cards) 

Lead card type 3 has TAPEIO punched in card columns 1 through 6 
and may contain the internal file names for two input tapes and 
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one output tape. Provision is also made to input the number 
of files to skip on the input tapes and the EOW character used 
to separate data words. The internal file name for the first 
input tape must be the same as on the @USE lead card. If a 
continuation input reel of tape is used, the internal file 
name must match its @USE lead card. 

The fixed-sample-rate output tape also must have an internal 
file name supplied. Blank fields on the TAPEIO card or omis- 
sion of the TAPEIO card result in the following default values: 

TAPEl = 15, input tape 1 

TAPE2 ■= 0, no tape 2 

TAPEF = 7, output tape 

MOVEl = 0, first file for first tape 

MOVE2 = 0, first file for second input tape, if it is present 
EOW = a blank EOW character defaults to M, which is input 
as 

• Types 4 and 5 (calibration cards) 

Card types 4 and 5 are submitted together. Type 4 contains a 
two-digit channel number from 1 to 40 corresponding to the 
input tape identity fields 000 through 039. It also contains 
the degree (M) of the calibration curve which must be 
greater than 0 and less than 6 (0<M<6) . The number of input 
calibration points is supplied on the type 5 lead card and 
ranges from 2 to 21. For every type 4 card, one or more type 
5 cards follow. 

Free field input is used to supply either input points for 
curve- fit or polynomial coefficients. In either case a search 
is made for the $XYCALS name and either XYPAIR= or P0LYC0= 
will be found with input points or coefficients, respectively. 
(See also the JSC Procedures Manual Part 15 IDSD 15:60.030 for 
FORTRAN V guidelines, and appendix B.) 
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Omission o£ card types 4 and 5 permits the input of data from 
tape and tabular tape output of raw data. 

r 

A. 2 CALIBRATION 

f 

If calibration is requested as flagged by input of a set of XYPAIR 
calibration points, the CURV61 subroutine is called to return the 
coefficients. These are stored in an array indexed by channel 
number. The remaining calibration sets are read in until coeffi- 
cients for all requested channels are computed. 

If the last lead card has been read and interpreted, the start/ 
stop time and the first tape time values in DDD:HH:MM are con- 
verted to integer milliseconds. The DHM2MS Subroutine is called 
to standardize time, since the time units for the fixed-sample- 
rate tape are integer milliseconds. 

A. 3 INITIALIZATION 

Initial conditions for execution are printed, and if the lead 

t ; 

card information is sensed as bad, the CSVIDR program error exits. 
If the bad input flag BADCRD is not set, the NTRAN subroutine 
is called to read the input tape. Validity checking of the 
input tape quality is limited to a maximum of 20 read errors, and 
word count is checked for a minimum of 168 words and a maximum 
of 3,444 to permit variable channel selection. The input of any 
number of channels from 1 to 40 is permitted. 

A. 4 RETRIEVAL OF TIME 

If the input tape record is good, the SCHCHR subroutine is called 
to search for the first time code character, TICHR, and the EOW 
character, EOWCHR. The third character of the first word of each 
tape input record contains character TICHR, and EOWCHR is the 
14/;^ character from the start of the tape record. If the time 
word is confirmed, the SCHCHR subroutine is again called to find 
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the next time character, T2CHR, and the number of data words pe.r 
scan is calculated. The number of days supplied by lead card 
plus the time word values in hours and minutes from the input 
scan are used by the DHM2MS subroutine to convert time to integer 
milliseconds. 

If the time is less than the requested start time, as many addi- 
tional scans of data as necessary are read at 36 scans per record 
until the start time is found or exceeded. 

A. 5 RETRIEVAL OF CHANNEL DATA 

' — . - ■ ■- » — I I ■ ... .. r 

For each scan of data retrieved, the FD2INT subroutine is called 
to convert the channel characters from Fieldata to integer format 
in order to compare them to the card input or default list 
requested. If a data channel is not requested, the list is read 
until it is exhausted and a new time scan is examined. If the 
channel is requested, character one, CHRl , is checked for data 
types 1 through 7. If CHRl is 1 through 4, the FD2FD subroutine 
is called to determine the Fieldata characters necessary to com- 
pute the floating point value of the raw data. The EVALFT sub- 
routine is given the data value with the coefficients specified 
by the channel index to provide the computed dependent variable 
value, ZDATA. The ZDATA value is placed in the PLTBUF array, 
which is used to store data for the fixed-sample-rate output 
tape. The ZDATA array is also converted from floating point to 
Fieldata using the FP2FD subroutine to fill the location in 
either the log data line or the limits data line. The input tape 
format may be reviewed for log mode or limits mode. 

A. 6 TABULAR OUTPUT 

The character string for tabular output of the limits mode data 
is constructed and stored in a page-sized buffer and output by 
the page onto a FASTRAND file according to the output format 
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specified in section 6. Each line of the log mode data is stored 
and spaced by channel number and optput for each scan in the 
specified format. 

A. 7 FIXED -SAMPLE -RATE TAPE OUTPUT 

For each 12 time scans, the PLTBUF buffer is output to the fixed- 
. sample-rate tape. Additional input records are read and data 
retrieved, evaluated, and calibrated with log mode data tabbed; 
limits data stored; and fixed- sample- rate tape records written 
until the stop time is exceeded or the end-of-file (EOF) is 
sensed. 

A. 8 TERMINATION OF TAPE INPUT 

If a continuation reel is required and the stop time has not been 
exceeded, the NTRAN subroutine rewinds and interlocks the first 
input tape, assigns the continuation reel according to the lead 
card and @USE card, and continues processing. If a continuation 
reel is not used and either stop time., EOF, or the maximum parity 
records are exceeded, the last buffer with PLTBUF data and/or 
fill is written. An EOF is written with interlock. 

A. 9 OUTPUT SUMMARY 

The remaining data in the limits mode page buffer is written on 
the temporary status file (TSF) . The TSF is read and the limits 
data printed by the page of 56 lines with 72 Fieldata characters 
each until all TSF blocks are read and written. 

A summary is printed as follows: 

IREC = number of input records 

TREC = number of tape records written 

DAY = same day as input unless incremented by detecting a 
backup in hours (i.e., day rollover) 

HOUR = last hour on the input tape 


A- 5 



MINUTP, = last minute on the input tape 
TIMOUT = last time converted to milliseconds 

A. 10 ERROR DETECTION 

Error messages written by the CSVIDR program always start with 
**CSVIDR** and output, in addition, the last character position, 
LSTPTR; the starting character for a time scan, ISTCH; and the 
current scan, ISCAN. The UNIVAC EXEC 8 Hardware/Software Ref- 
erence (UP7824) may be referenced for general error and status 
information. 
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LEAD CARD SETUP 


CARD NO._JEZP£_Ji ^ 

iOB PAGE.J:^ OF ^ 

MAME CSVIDR programmer DATE jLlZZi 












TYPE 2 


LEAD CARD SETUP 


CSVIDR 


PROGRAMMER J l R . U 


FAGE_i 0F_A 

DATE 12/75 


CARD 

columns! 

FORMAT 

SYMBOLIC 

NAME 

m 

A6 

CARDIN 

17-19 

13 

DDD(l) 

21-22 

12 

HH(1) 

24-25 

B 

MM(1) 

37-39 

13 

DDD(2) 

41-42 

12 

HH(2) 

44-45 

12 

MM(2) 

57-59 

13 

DDD(3) 

61-62 

12 

HH(3) 

64-65 

12 

MM(3) 


identification 


CARDIN Punch TIMEAA only in this field 



Comments: If the TIME card is missing, time is from first scan 

to last scan on the tape. 
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LEAD CARD SETUP 


CARD HO. 

JOB 

NAME 


Type 5 


CSVIDR 


PAGE ^ OF J 

PROGRAMMER DATeUZZI 


FIELD 

ID 

CARD 

COLUMNS 

FORMAT 

SYMBOLIC 

NiAME 

IDENTIFICATION 


jnn 

A6 

CARDIN 

Lead card TAPEIO 


14-15 

12 

TAPEl 

Internal file name for first input tape 

3 

24-25 

12 

TAPE 2 

Internal file name for second input 





tape 

m 

34-35 

12 

TAPEF 

Internal file name for fixed-sample- 

■ 




rate tape 


44-45 

12 

MOVEl 

Number of files to move over on TAPEl 

6 

54-55 

12 

MOVE 2 

Number of files to move over on TAPE2 

7 

62 

A1 

EOW 

EOW character; default or blank permits 





the character M. 






























































Comments: Default for missing TAPEIO card causes TAPEl =15, 

TAPE 2 =0, TAPEE =7, MOVEl = 0, and MOVE 2 =0. 
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FIELD CARD 
ID COLUMNS 


FORMAT 


12 


SYMBOLIC 

NiAJAE 


identification 


IDCHAN Channel number (2- digit integer from 


1 to 40) 


2 10-18 A9 EUNIT Output unit label 


Degree of curve (>0, < 


Number of calibration points 


(XYPAIR to follow) 2<N<21 



Comments: This lead card must be followed by a type 5 card. 
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LEAD CARD SETUP 

CARD NO._IZ££_i ^ 

JOB page _L_ of_ 

NAME CSVIDR PROGRAMMER DATEil^Zl 


FIELD 

ID 

CARD 

COLUMNS 

FORMAT 

SYMBOLIC 

NAME 

IDENTIFICATION 


1 



This is a free field using the namelist. 





(See also IDSD 15:60.030.) 


2-9 



$XYCALSA 


10-16 



XYPAIR= or POLYCO= 


17-72 



This is a free field. 





Input of calibration data for XYPAIR is 





as follows: 










The first character on each input 




- 

record (card image) is not used by the 





program. The user may put his own 





sequence numbers here if desired. 



.. ■ 







The first input record read using 





$XYCALSA must have a $ in the second 





character space followed by XYCALSA 


■ 



with a blank in card image column 9. 










Either the variable name XYPAIR= or 





POLYCO= is located and read with its 





corresponding data input constants 





separated by commas. 


Comments: This lead card must be preceded by a type 4 card. 
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LEAD CARD SETUP 


CARD KiQ. Type 5 (cont.) 

JOB PAGE ^ OF 

NAME CSVIDR PROGRAMi^ER , . DATeJi^/Z^ 



IDENTIFICATION 


All subsequent blanks are ignored with 
only the comma or end of a card image 
denoting the end of a data field. 



The second variable name may continue 
on the same inpqt record if at least 
one data item follows. 



The last item on an input record must 
be a constant followed by either a comma 
or the end of a card image. An identi- 
fication field may not be punched in 
columns 73 through 80. 



The end of a data set, not to exceed 21 
points, is signaled by a $END found any- 
where in a card image, except in the 



irst character 


position. 





Decimal points may be used as necessary 


or omitted for integer input. 



























APPENDIX C 


DECK SETUPS 



DECK SETUP FOR PROGRAM 


CSVIDR 


PAGE NO. J^OF^ 


(Bock of dock) 




8XQT QUAL*CSVIDR.RUNCSVIDR 








/t~ 

f 8USEA9. ,TSF. 

— 

I 8ASG,' 


,T TSF. ,F 


8USEA7. ,TAPEF. 


8 AS G , T/ S TAPRF . , 8 C , SAVE ,98, P LOT 


8USEA15. ,TAPE1. 






(1 




(I 

I 8ASG, 


TMI/F TAPEl. ,8C,C05207 


8PRT.T QUAL* CSVIDR. 


8PRT,F QUAL*CSVIDR. 


8 FREE, S TAPE. 


8COPIN TAPE., QUAL*CSVIDR. 


{ 


( 




8 REWIND TAPE 


8ASG,T QUAL*CSVIDR. ,F 


7 - 

8ASG,T/R TAPE. ,8C,X12345 




/7 

I 8MSG,N 


TAPES X12345/R,C03207/F,/S 


7 

8 RUN 


(Front of dock) 


DECK SETUP FOR PROGRAM 


CSVIDR 


2 2 

PAGE NO OF 


(Bock of dock) 


£ 




7 

8FIN 


8PMD,E 


/ 


r 




I 3,5,4, 


4 21,21,$ 


$XYCALS *XYPAIR=0,0,1,1,2,2, 


05 MILLIVOLT 5 21 




r 


r 


IXYCALS 

r 

^ $XYCALS 


0 3 DEG C 


POLYCO=. 5,1.1, .002, .0003,+!. 04,$ 


$XYCALS 




02 PSIA 5 


I 

£ 


^ XYPAIR=-1. ,0,+l. , 270.3, $END 
^ $XYCALS ~ ~ 

( 01 GAL/ MIN 1 2 
Title card 


(Front of dock) 


C-2 


'*sr< 000 



APPENDIX D 


DIAGNOSTIC MESSAGES 



APPENDIX D 


DIAGNOSTIC MESSAGES 

**CSVIDR**HAS ENCOUNTERED A BAD INPUT RECORD. 

THE ERROR OCCURRED TRYING TO READ RECORD 

**CSVIDR**COULD NOT FIND THE TIME CHARACTER 

** CSV I DR** COULD NOT FIND END OF WORD CHARACTER FOR SCAN 

**CSVIDR**DOES NOT HAVE ANY LEAD CARDS. DEFAULTS USED 

**CSVIDR**HAS AN ERROR IN CHANNEL NUMBER 

**CSVIDR**HAS AN ERROR IN FREE FIELD INPUT 

**CSVIDR**COULD NOT FIND TYPE 

**CSVIDR**UNABLE TO CONVERT DAYS TO MS 

**CSVIDR**UNABLE TO CONVERT MS TO DAYS 

**CSVIDR**EXIT IREC= LREC= 

REC= LSTPTR= ISTC= ISCAN= 


D-1 


APPliNDIX \l 


SAMPLE INPUT 


o Qk 


Avb 

Ck 

^.1 


tij 

t 

}-* 


..iPRT.S CALIER*CD2i:b5.-. 

FURPU- “:.G?6-lL/il-17:Gc 
FD5-L7SCi6»C/iLIbl. .CL32i_y 
1 1 


11 

12 

13 

4.4- 


15 

16 
17 

-IP- 

19 

29 

21 

- 22 - 


2 ; 

24 

25 
-24- 


27 

2f! 

29 

- 32 - 


31 

32 

33 
_i.4_ 


35 

36 

37 
-3B-. 


39 

4C 

41 

-tt2_ 


43 
4 4 
45 
-44- 


47 

48 

49 


A C C . M 0 . 

;■ r* *■> 


CG3-2.-CCCDQ9 

tc i- 


I Ib'rCiC. TM’uI-l^ TA>'L''-i4: 

4 1 T/C 1 

5 EXYCALS X yP AIKr^ , , 1 , 1 , ^ 

2 T/C- 1 

7 S.XYCALS XYPAIhru,0,l,l,i 

R 3 LABEL fiG2 1 

4 5XYCALS XTFATPr-J.C.l, 1 ,5 

-1.S 1 1-C-E-G— P 1- 


TAPLf -C7 

«L 

2 




bOO - G 9 32 


IXYCALS XYPAIhrG. .IbC. ,a 

12 PS I A 1 2 

IXYCALS X YPAIk-G. ,C . , 5. , ICC. , 5. 
4-3--L^-/-KP 1- 


SXYCALS XYPAIR=C,G,S,12uC,S 
14 PblO 1 

IXYCALS XYPAIK=u,0|5,10o,S 
1 S--O fc &-P J- 


iXYCALS XYPAIR=G,fi,S, 15U,S 
16 L.-/hP 1 

IXYCALS XYPAlRrL;,0,5,12Gr ,1 
i 7— 1- 


5XYCALS XYPAIrf=CT0,5, iOD,i 

16 VLLTS 1 2 

SXYCALS XYPAIPrCtC, .15,i5Q,S 

-1-9 -WAJSLS 1 Z- 


IXYCALS XYPAlRrD,C,,l,lLrO,'i 
2G FSIA 1 

IXYCALS X YPAlR-UrG.Sr^O 




4- 


SXYCALS XYPAlR-CtJ,5,12uC,S 
22 LAPEL D22 1 

IXYCALS XYPAIR=C,D, 1,1,1 
2-3-L- ABEL— 023- 1 


SXYCALS XYPAIfi=0,0,l,l ,S 

24 PSIC 1 2 

IXYCALS XYPAIRrC. ,0. , 5. , ICC . , S 




-4- 


SXYCALS XYPAIRrG,C,S, ICC.S 

26 Lu/HR 1 2 

IXYCALS XYPA1R-G,0,5,13uO,S 


SXYCALS XYPAIR::t;,0, . 1 ,1UC0,$ 
28 VOLTS 1 2 

SXYCALS XYPAIR=0,0,. 15,150,5 
.29.LA2EI. C29 


SXYCALS XYPAIR=G,0,1,1,S 

30 VOLTS 1 2 

SXYCALS XYPAIR=Q,G, .15,150, 5 


^ a 2 u a K 


SXQT CSVIDR.RUNCSVIDR 







EN'D OF WORD character EO i«=aa a StiK 
CHANNELS REQUESTED ARE: 


1 T/C 1 

COEFFICIENTS .COCCDOD 


CHANNELS REQUESTED ARE: 
TR LABEL DEB 

1 


COEFFICIENTS .OODCOOD =AO 


.lOOCOOO^OirAl 


.100QCD0»01=A1 




CHANr.FLS PEOUESTED ARE: 
PTR LAfcEL DEC. 

— 3 LABEL r-L'3^ 1 -- 


Si 

®tS 


COEFFICIEMS .uLOCCCC -A^ . 1 CCOOLO + Olr A1 

-CHA.%RELS RLwUE-SItO AK^E-: 

PTR LAcsFL DEC 

11 DLG F 1 

-CGEi^FICIEM S r-C SC L-GGQ :i-AC. ■ . Z O GC 

CHARt.ELS PEOUESTED Af,E: 

PTP LACEL DEG 

_1 ^_F_.SI A 1 

COEFFICIEfvTS .OODDCDO -AD . 2C0CG00+D2= A1 

-CHARAFLS- SEQUENT ED-ARE-: 

PTR LAoEL DEG 

13 Lb/hP 1 


COLFf_IX.IL.LJ_S LCC.LCJ,C— 

CHAf;NELS REQUESTED APE: 

PTP LAhEL DEG 

1 ii p c. T r- » 

— :lAO 

.2 4bCCCO*-OJr A-1 

COEFFICIENTS 

• oLOLiCl^G 

= AE. 

.2culodo*d:=ai 

QFC\nrc.Trn Ai.r • 



PTP LAbEL 
15 DEG F 

DEG 

1 


* 

_ rnfFFTrTFKTR 

-rinpfi_nnR 

~An 

7nnrnr.P4^nFr Ai 

CHANNELS REQUESTED ARE: 
PTR LAtEL LEG 

1 A 1 F /HP 1 

coefficients 

.DCDUDCD 

::AD 

,24DGDC0+C!3.rAl 


P T R^L ADEl'^*"*^'''^''^DEG*^^ 
17 PSIG 1 


. .co.ee.f. x .c..i.ei:t.s »u.aaacao tjlc . 2 Cccccr.*.S 2 -Ai 

CHANNELS RECUESTED ARE: 

PTR LAbEL DEG 

Ifi UC.LTS J 

COEFFICIENTS . 1 1 1 G223-1 5= AC . 1 CDCCC0+G4=A 1 


_CHAtCA.E.LS .REQ.UE-SJED AR£..i 

PTR LABEL DEG 

19 WATTS 1 



COEFFICIt ^ T 


c5i:^i7cM-15-4C‘ 


1 DnCCL.O>Cb=:Al 


CHiVI.FL' IlCwf-SUr i.-t; 

FTP L & b F L i> L u 

20 PS I A 1 

COEFFTCIL^.TS .L..ru[.uF ::Af . H. OlGlC + F,; r A 1 

CHAFNEL S FECUlSTLL- A k E : 

PTR LAuEL -LEL . 

21 LL/hE 1 

COLFFICILMS .0L.Ev>0:,r zLi,- .rMOuLuF + '^i'^Al 

”Th AF. N E L S" PL 0 liFsT l"d "a " 

PTP LAhCL DEt 

22 LA!?lL C22 1 


COEFFICIENTS .DCOuDGC ^AI- . 1 CCC C LiC ♦ G 1 = A 1 


CHANNELS PEOUESTED AP-E: 
£J.e LAilEl LlEJS 


23 LABEL D23 

1 



COEFFICIENTS 

.Gcoccan 

= AC 

. 1GC0DDC+D1=A1 

CHANNELS REQUESTED ARE: 



PTR LAdEL 

DEC 



2^4 PSID 

1 




COEFFICIENTS .GCCLCCD = tZ .2CCGCUD+02=A1 


CHANNELS REQUESTED APE: 

JLT £ L A a EJ H£LG 

25 PSIb 1 


COEFFICIENTS .ODDoODD =AC . 20D0C CO + 02 P A 1 


CHANNELS REQUESTED ARE: 
PTR LAiiEL LEG 

26 LE/HF 1 

COEFFICIENTS 

.DCCLOOD -AC 

.26GuCCD*03=Al 

CHANNELS REQUESTED ARE: 


PTR 1 A = F 1 

OFN 


27 WATTS 

1 


COEFFICIENTS 

.8381764-1S:A0 

.100DG00*05::A1 

channels REQUESTED ARE: 


PTR LAbEL 

DEG 


28’ VOLTS 

i 


j COEFFICIENTS 

.111C223«15=AC 

.10G00D0*04=A1 




1 “ 


CHAr'.NfLS f LUULbTLu Ar.L : 
PTR LAcfL iiEo 

I 2^ LAFtL r;i = ] 


COtFF ICIL'.TL . U i,i Lw:'+ 'J *A i 



AP FUND IX F 
SAMP LI- OUTPUT 


tt 





4CC.no 


LD3-2-CDaCL': 


-IIME— 


OCDchh:****. 


•CHANNEL 

l-IO I/C 

n-:o DEC F 

ZI-30 LE/BN 

il-HC- 


i/c L«Bri r.c2 

FSI* LF/HN FSin 

L»6El C22 L4EFU 023 F'.ID 


G: 5:46 

0: ?;48 


l-ic 

U-2C 


0; V:<49 
D: S:44 
-t4- 


C: N:SC 
C: 9;sr 


I-IG 

11-20 

il-it 


0: 9:5? 


■- :5J 
-Viii 


□; V:S2 
0; 9:5? 
-Cn-9.:.SZ. 


1-lC 
11 -2D 
tU-JC- 


1-lt 
11 -2C 


1-lC 

11-2C 

-2i:rJC_ 


C: 9:55 

1-1 C 

C: 9:55 

11-20 

r • c « c 


O: 9:56 

1-10 

0: 9:56 

11-20 



• 0: 9:57 

1-lC 

0: 9:57 

11-20 

r? 

1 1 

0; 9:56 

1-lC 

0; 9:56 

11-20 

n? 

7 1 • 1 r. 

0: 9:59 

I-IC 

0: 5:59 

11-20 

0 4-5 459 

-23--.30- 


73.9 
O.C30 
— ir ^ aCQ - 


7M.3 
3.26D 
D . D C * 0 ~ 


73.9 
— il ..40 
— — 0 -. C * Gtx — 


3.09 0 


555555556 

6&b6b6666 

777777777 

8668 68666 

5999S5999 

oqcooccoo 

DEO F 

LP/HN 

PSIG 

VOLTS 

kAITS 

FSII 

PSIG 

LP/Hh 

WAITS 

VOLTS 

LAbEL 029 

VOLTS 

o.ono 

C * 0 

3.220 

-C.IOC 

C.ICO 

1.650 

-14.^88- 

F.848- 

Oy-200- 

G-.G86- 


Or! Ob— 


O.ODU 
-1-4 .-OGu— 


73.9 

O’.OCC 


73.9 

o.ccc 

— u -. cas - 


73. 9 
3.3CC 
■dFO- 

71.7 

3.30C 


73.9 

o.cro 

-U-.DDO- 


3.06G 
— 2 ^“ 


O.bCU 


79.3 
C.COO* 
C-.C.GC- 


3. DEC 
- 0 .4 2 0 ■ 


O.COU 


73.9 
U.GOO 
- ti t ono - 


71.2 

3.28C 


74.3 

C.CCQ 

0 , 


3.ino 

p , ii N 0 


0.000 

•14»-fe Go- 


73. 9 
U.DOU 
— a.-oco- 


73.4 
3.260 
— o.coc. 


74.3 
0.240 
O. CC C - 


3. IOC 
- 0.4 2 0 


. O.CGO 


73.9 
U.C3Q 
CU-24.0- 


72.6 
3.24 0 


74.9 

C.240 


73.9 
O.OOu 
D.OCO- 


71.7 
3. 260 
O.CCl. 


74.3 

0 .oro 


3.140 

-O...440- 


73.9 

o.cno 


73.9 

u.ono 

0.XCJ3- 


72.1 

3.262 


71.2 
-0. 140 




74,3 
O.LCO 
;.o— - 

74.6 
O.CCO 
0.-CC0- 


3. 120 


0.000 

.l-4-.-62-a- 


73.9 
C.tlOO 
CUCOU. 


72.6 

1.760 


74.3 
D.OCO 
— o.iCo- 


D.6«0 Q.DOD 

-0.J*? I— _*1 4 . 600- 


73.9 

U.COQ 


73.0 

2 . 540 


74.3 

c.oro 

C.OCC 


o.ocg 

- trrbZu — 


3.240 

-0.1GC- 


D.OOG 
-i-w ITjii- 


U. ICO 
-6.-0C-2- 


1.7C0 

Oil — 


0.000 


3.220 

-G»-ifOO- 


-U.iro C.DGC l.bSC 

— 0.-0-00 — — G .-GCMl (7.O06r — 


0.240 

£ g 620 


i.200 
— O-i-lOO— 


0.000 

- C.7 6 fr - 


3-. 200 
-fi."l-&0— 


o.coo 

-IF. 


0.000 
— {> . 0 C * C — 


0.200 


0.2CC 

-D'.OG-l— 


1.66C 


1.6TC 


C.24Q 
' 0 w 7 SG— 


3. IRC 
-fr. 208- 


C.CCC 
— G . 1-CG 


O.CCC 

-L^.-&8C- 


1.670 
-6r88S — 



O.QCO 


3.160 

-O«06- 


0.000 

-tf-.G GG - 


Q.2CD 

-GtGOG- 


1.66G 


-C.6P0 O.CL’u 0.240 -0.600 : o.ccc C.IOC 0.720 

— 0-44C ^_..lft,620 0.-65G C.-700 O.CCC 8.-C30 &.CCG — 


n*n? 0.000 0.000 2. COO O.CGC O.IOC I.^IC 

— ^_»i 4 .*cu L-r^C- C.. 200 — a.ooo u .^1 O.OSG — 


*cc.f.o. tbi-2-ocor-t'< 




UOU L3LJ aOOOL) uc:. 

^ ^ ^ >i Jl ^ ^ J ^ 


j'vi'vrvfMwr rMi'jc wn wi'jrjf^rvcvjfMW rvcsjC'^ (v<Mf jfi 

- -_ I j3^Qq^^jjijtjcjou..'5-3wj}'j3»jaL4'^uci4ooo».*: 

_ ._ -j_i-j_j -j J _j^_jJ _j-j_j 

k C WuJU. l> uJ;^U'L^ M U - uJLuUiU^U : WUj tA. U>li. LJ U. UJtuLjJ lijLuLi.' 

uiOr-4 ii:iuia>LU^<£ia.>u2tijv4ai'^'a.>a) oicCvOuJ^u^j^ULi) jjtumul'UiijmJluiajaj 


uJU.1 UiW 
uOffl'O ‘ 
•i <i «. «i ^ 


O'O- M 
rwra^<pJ 
ocjjjq 

-J-J-J 
UluJLJl 
tUOinio:} 
4 4 «1 


0'0'9‘0 

faNNC 

OCJOC 

UJUJuJU 

ajcomti 

< 4 4 c 


oouSLiocDuq 


DuoqoQodouucjoooq 


^o«KV<SCOCOU3J3u)lOUJU> 

<4 uQoo a uooo 


tcu)touj(ua>coo4<OujAj0k) 

W'MWI 

D o u d a ci o CJ u u u q o C2 o c j o Q rj p 


(N>rgr>$(^r<jc<j<4 


u)cocoa; u>gC)uj 
( jcgtNjrs fMigrgtsI 
aupduuuiJ 


oa^uscq 

ooaU 


CO no oj 03 ix> (O tScq 

igt'jtgrg t^Nc^r. 
OPOCJOOOd 


ai r'jcofg^ s int/tu1aunlrtu4u^ <^<^^gag>Of£}UMi lT}9«;7 2 ^a^■:ra’• 0 ' 2 f^li 1 ulmui(/|e.a:u]coa>C^(^lc^c^<^oj 

X fo M K) »'>•'» -1 :r ^ a- a ir -s a'aa'a^aa^aaar^a ^ ^ a a\ 






• *4** 

3c|uucc|c 


auaoaudcquoQdoaoc:^oooL|uuc:.c aooduupcJcucquucqcjaDq 


aaodoaado 


.7 



J -3 


62Q 13SVT *0 ■ 92D 




FIXED SFt'PLE RATE RECCRD 
.OCPCOCC ,7<»30aOG*G2 


. a ^ CLDDC’CC 

.CCPCCGC 

.CDCuDCO 


. ICCCGOb-CA 
.CCCOUOL 


2 V 3 £ Q 0 a 0 

.730CCDQ-C2 


. 1 DCCPCC - C ^ 

•outcoco 


;.ocnaoao 


.CCGOOOO 


.M'<COCGO + CD -.146C0UD*02 . 7800000*00 .1000000*00 .11 10223-15 .0000000 

•COOCCOD .CUOQDCO .QOOODDO .DOOOCOG .0000000 .OCOOOCQ 


.1110223-15 

.0000000 


3444CCCC 

.7300000*02 .7C<4D!!Q0»D2 .73‘iCT’DG*n2 .0000000 ,0000000 .0000000 

»— 5 & Cl , 00 C - O-l .- 3 JMS &;: S - Ij -*& 1 - ..2 4 OOOCiC * U ; . 27 4 P .&&&* C -1 — , 2 « i uO OOfr * l , 6 - 

. 2<< 00000*00 .1CO00GO-C4 . I DCOCCu-r*! .H2COCCO«00 -.14 6 0000*02 , 520DC.n0*0C 

• CCrOGOC .ECOOriOC .COOLGCC .0000000 .ocnoouc .OOUOUDO 

.OGacooo 


.CQOCooc .cobooro 

■.~3"3 6 0000 *0-1 r-1-1 "102 2- 3 — 1 ~S* 

.1000000*00 .1110223-15 

.CQOCCGO .0000000 


.OOOCOCD .0000000 

•»-lbOOOGfl-*®fl .i780C0D-*Oi- 

.OCDDPOO .1110223-15 

.0000000 .0000000 


345 LCCC 0 

. 7300 C 0 r *22 

~ r 24 rOCOr*CG 

.CC00C30 

.ocroDoo 


. lOuaJOxia — C *4 

.ocoouoo 


.10COroD-C4 
.COL CO 00 


.4i)CnG3C*C0 -.1460000*02 .7600000*00 .1000000*00 .1110223-15 .1000000-02 

.0000000 .CDODOilO .0000000 .0000000 .0000000 .0000000 


COCDCCO 

1760000*04- 

1110223-15 

oocccco 


•n 

r 

■u 


3456GC0C 


.OCOLrcn .7C‘.C00L*G2 .7 3':OOOC*02 .uDDOOOO .nG''unOC . 

_-C CCOCOD ^s<t 4 CuC*,* al .C-u 00X00— .X£-OOOOC.*0-1 .01100(10 C 

.GCrCCJC- .LCCCJOi, .lC.wOCC.C-C6 ,42DCCQG*C0 -.1460000*02 

.CCrLCjO .OCLO.IOC .OCCCCtO .OGOOCOC .f’0''0C0C 

•DCCCOOC 


OOOOUOO .CCDCnCO .OCCOOCO .OOOCOGO .0000000 

coo C coo .3 2 ROO G0-*&1 .4 1102 2-3-1-S .4 G P G 0 GO-*CO .47-7 0 0 G U *dl- 

5200000*00 .1000000*00 .1C(jOOPO*DO .lCOCOCO-02 .1110223-15 
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PROGRAM ELEMENTS AND LISTINGS 


G.l INTERNAL SUBROUTINES 


The subroutines with the $ suffix are internal EXEC 8 system 
subroutines and are as follows: 


NINTR$ 

NRDUS 

NI03$ 

NI02$ 

NWDU$ 

NI01$ 

NRNL$ 

XPII 

NSTOP$ 


G . 2 EXTERNAL SUBROUTINES 

External subroutines other than EXEC 8 system subroutines are 
grouped according to function as follows: 


CURV61 

FD2FD 

NT RAN 

DHM2MS 

SCHCHR 

FD2INT 

EVALFT 

FP2FD 

MS 2 DAY 

INT2FD 


These external subroutines are described in detail, according 
to their function, in the following sections. 


G.2.1 Curve Fit and Evaluation Subroutines 

• Subroutine CURV61 (SPX, SPY, M, H, SPA> A) 

The CURV61 subroutine uses the least-squares method to find 
the M degree polynomial 
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• • • 


Y = A, 


+ A^X + A^T 


- Aj,X 


M 


which approximates a curve through N given points (X^^ , Y^) 
where i = N. The subroutine uses six calling arguments to 
interface with the CSVIDR program 

where : 

SPX = floating point independent variable 
SPY = floating point dependent variable 
M = degree of equation to be fitted 
N = number of points in the data array 

SPA = single precision coefficients for terms Ag through Aj^ 

A ,= double precis ion . coefficients for terms Ag through Aj^ 

• Subroutine EVALFT (X, M, A, Y^) 

EVALFT uses the coefficients input from lead cards or from 
the CURV61 subroutine to generate a set of dependent-variable 
values (Y^) corresponding to a set of predetermined values 
(X) provided by the GSVIDR program 

where: 

X = independent variables from VIDAR 
M = degree of the calibration 
A = coefficients for terms Ag through A^^ 

Y^ = calculated dependent variable 

G.2.2 Time Conversion Subroutines 

• Subroutine DHM2MS (IDAY, IHR, MIN, MS, $) 

The DHM2MS subroutine converts time to milliseconds 

where: 

IDAY = days in integer format 
IHR = hours in integer format 
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MIN = minutes in integer format 
MS = milliseconds in integer format 

$ = statement return if integer milliseconds are less than 

zero 

• Subroutine MS2DAY (ITIM, IDAY, JliRS , JMIN, SEC, $) 

The MS2DAY subroutine converts milliseconds to DDD;HH:MM: SEC 

where ; 

ITIM = time in milliseconds 

IDAY - days in integer format 

JHRS = hours in integer format 

JMIN = minutes in integer format 

SEC = seconds in floating point format 

$ = statement return if milliseconds supplied are less than 

zero 

G.2.3 Character String Manipulation Subroutines 

• Subroutine SCHCHR (I FIELD, ISTCH, NOCH, I CHAR, NTHCHR, $) 
where; 

IFIELD = field to be searched for a comparison 

ISTCH = starting character position in IFIELD v^fhere the 
search is to begin 

NOCH = number of characters beginning in IFIELD at character 
position ISTCH to be searched 

ICHAR = character for which IFIELD is to be searched 

NTHCHR = if a comparison is made, the character position in 
IFIELD where the comparison is stored 

$ = statement return if a comparison was not made 
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Subroutine FD2FD (NOCII, LINK!, ISTCH, LINF2, JSTCH) 
where: 

NOCII = number of characters to move 

LINFl = first word address of the source line 

ISTCH = starting character position in the source line from 
which to begin moving 

LINE2 = first word address of destination line 

JSTCH = starting character position in the destination 
line 

Subroutine FD2INT CLINE, ISTCH, NOCH, VALUE, $) 
where : 

LINE = first word address of the source line 

ISTCH •= starting character position in the source line 

NOCH = number of characters to be converted to an integer 

VALUE = location where the integer value is to be stored 

$ = return taken when a character other than a +, -, 

blank, or numeric is detected 

Subroutine FP2FD (FP, NOCH, NORDP, FIELD, ISTCH) 

where : 

FP = location where the floating point value is stored 

NOCH - number of characters to be converted to Fieldata 

NORDP = number of digits to be placed at the right of the 
decimal point 

FIELD = first word address of the destination line 

ISTCH = starting character position in the destination line 


• Subroutine INT2FD (INT, NOCH, PIHLD, ISTCH) 
where : 

INT = integer value to be converted to Fieldata 
NOCH = number o£ characters 

FIELD = field in which the Fieldata integer is to be placed 

ISTCH = starting character position in the field where the 
Fieldata integer is to be 'placed 


G-5 


•FQR.S FD5-L75036*CftLCUR.CSVIDR 
FOR SE2C-10/31/75-U ;3l ;36 (3,) 

BftlH PROGflftIR 

STORAGE USED: COOE( 1) OOmTR; OATACO) 001332; BLANK CQninON( 2) 000000 
CQlSnON BLOCKS: 



0003 

BUFFER 

007555 


0005 

TIMES 

OOOOH 

'J 

0005 

10 

000520 


0006 

OPCOEF 

000770 


0007 

COM OUT 

001H06 

0010 

TABLOG 

000375 


EXTERNAL 

, REFERENCES (BLOCK, NAME) 


0011 

CURV61 



0012 

F02F0 


Ma 

0013 

NTRAN 



00 IR DHm2PlS 
0015 SCHCHR 
0015 F02INT 
0017 EVALFT- 


cn 

■ 0020 

FP2FD 

1 . 

0021 

MS20AY 

0022 

INT2F0 


3023 

NINTR5 


0025 

NR0U5 


0025 

NI034 


0026 

N1025 


0027 

NUOUi 


0030 

NI01$ 


0031 

NRNLS 


0032 

XPII 


0033 

NSTOPS 


STORAGE ASSIGNPIENT (BLOCK, TYPE, RELATIVE LOCATION, NAinE ) 


0001 

002061 

lOOOL 

0001 

001603 

1035G 

0001 

002101 

105 OL 

0001 

002271 

1076L 

0001 

002305 

1085L 

0001 

000637 

llOL 

0000 

000232 

1 iinF 

0001 

000653 

1 15L 

0001 

002256 

11566 

0001 

000665 

117L 

0001 

000665 

119L 

0001 

002306 

1200L 

0001 

002323 

1205L 

OCOl 

002351 

12155 

0001 

002363 

1230L 

0001 

002523 

1233G 

0001 

002512 

1235L 

0001 

000705 

125L 

0001 

0025 35 

125 0L 

0001 

002575 

12513 

0001 

002565 

1255L 

0001 

002557 

1267G 

0001 

002507 

1270L 

0001 

0025 36 

1275L 

0001 

002561 

1290L 

0001 

002610 

1295L 

0001 

000707 

130L 

0001 

0026 21 

1 3055 

SOOl 

002633 

131 OL 

0001 

002662 

1 315L 

0001 

002673 

1323G 

0001 

002705 

1330L 

0001 

002735 

1 335L 

0001 

002755 

13515 

0001 

000722 

135L 

0001 

002757 

135 0L 

0001 

003006 

1 355L 

0001 

003017 

1 35 75 

0001 

003031 

1 37 OL 

0001 

003071 

13755 

0001 

003060 

1375L 

0001 

003103 

1 390L 

0001 

003132 

1395L 

0001 

000725 

150L 

0001 

003155 

1510L 

0001 

003153 

15 13G 

00 01 

0C3203 

15 25L 

0001 

003225 

15 355 

0001 

000753 

155L 

0001 

003227 

1550L 

0001 

00325 1 

155 IL 

0001 

003255 

155 2L 

0001 

003265. 

1555L 

0001 

003312 

1566G 

0001 

003316 

1569L 

0001 

003312 

1570G 

0001 

003370 

15 SOL 

0001 

0035 12 

15S3L 

0001 

0035 23 

15 55L 

0001 

0035 30 

1500L 

000! 

003337 

1502S 

0001 

003337 

15 055 

0001 

003500 

1510L 

0001 

003911 

15 15L 

0001 

0035 20 

IS 19L 

0001 

003550 

•5 21L 

0001 

003577 

1528L 

0001 

003615 

15 30L 

cool 

003520 

15355 

0001 

003627 

155 0L 

0001 

003702 

I555L 

0001 

003711 

1556L 

0001 

003660 

16305 

0001 

003726 

16565 

0001 

003726 

16503 


M r 



0001 


001001 

1710G 

0001 


001071 

165L 

0001 


001111 

1850L 

OOOO 


001121 

1351F 

0001 


001117 

1860L 

0000 


001131 

1861F 

0001 


OOllll 

188L 

0001 


001 155 

1900L 

0001 


001265 

200L 

OOOO 


000252 

2000F 

0000 


00025 3 

2002F 

0000 


000255 

2001F 

0000 


000261 

2006F 

OOOO 


000270 

2003F 

0001 


000053 

2013 

0001 


000060 

211G 

0001 


000061 

2113 

0001 


001310 

220L 

0001 


000071 

2213 

0001 


001371 

230L 

0001 


00C102 

231G 

0001 


001102 

231L 

0001 


000103 

231G 

0001 


001127 

21 OL 

0001 


001137 

25 OL 

0001 


001551 

26 31 

0000 


000275 

3000F 

0000 


000276 

3001F 

OOOO 


000300 

3002F 

OOOO 


000311 

3003F 

0000 


000315 

3001F 

0000 


000331 

3005F 

0000 


000315 

3006F 

OOOO 


000361 

3007F 

OOOO 


000370 

3008F 

0000 


000377 

3009F 

0000 


000106 

3010F 

0000 


000617 

301 IF 

OOOO 


00061 3 

3012F 

oooo 


000666 

3013F 

0000 


000675 

3011F 

0000 


000676 

3015F 

0000 


000716 

3016F 

oooo 


000725 

3017F 

OOOO 


000727 

3018F 

0001 


000220 

301G 

0000 


000123 

3065F 

0000 


000521 

3070F 

0001 


000225 

3113 

0001 


000231 

3173 

0001 


000323 

316G 

0001 


001557 

35 OL 

0001 


001561 

355L 

0001 


n00261 

10L 

0001 


001615 

100L 

0001 


003755 

1000L 

0000 


000756 

1001F 

0000 


001060 

1003F 

oooo 


000771 

1020F 

oooo 


001005 

1025F 

0001 


003765 

10 30L 

0000 


00 1026 

10 35F 

0001 


001030 

1010L 

oooo 


001015 

1015F 

0001 


001050 

1019L 

0001 


001070 

105 0L 

0000 


001073 

105 IF 

0001 


001 102 

105 2L 

oooo 


001105 

105 3F 

0001 


001 113 

1056L 

0001 


001125 

1057L 

0000 


00M16 

1 05 8 F 

0000 


001111 

1059F 

oooo 


001170 

1060F 

0001 


000522 

11 33 

0001 


0005 25 

116G 

0001 


000510 

1573 

0001 


000571 

17 0G 

0001 


000332 

SOL 

0001 


000621 

500G 

0000 


000230 

5000F 

0001 


000633 

507G 

0001 


000616 

5163 

0001 


000702 

5^13 

oooo 


000250 

5555F 

0001 


000736 

571G 

0001 


000102 

6 0L 

0001 


000767 

6013 

0001 


001611 

605L 

0001 


000116 

61L 

0001 


001671 

610L 

0001 


C00771 

6113 

0001 


001011 

631G 

0001 


001731 

65 OL 

0001 


001220 

710G 

0001 


00125 2 

723G 

0001 


001273 

7 363 

0001 


000516 

90L 

0005 

R 

000125 

A 

0006 

0 

000000 

AOP 

0006 

D 

000751 

RDPSET 

0000 

I 

00006 3 

BADCHN 

0000 

I 

000215 

BAOCHR 

oooo 

I 

000062 

3A9CR0 

oooo 

I 

000037 

BLANK 

0000 


000100 

BLNKEO 

0003 

I 

000000 

BUF 

0000 

I 

000076 

.CALIB 

0005 

I 

000002 

CARDIN 

0005 

I 

000156 

CHAN 

0007 

I 

001267 

CHANLC 

0000 

I 

000117 

CHNL 

0000 

I 

000135 

CHRALL 

oooo 

I 

00015 2 

CHRl 

oooo 

I 

000155 

CHR12 

0000 

1 

000153 

CHR2 

0000 

I 

000160 

CHR6 

0000 

I 

000151 

CHR7 

oooo 

I 

000032 

COLON 

oooo 

I 

000033 

COLONZ 

0000 

I 

000116 

DATURD 

0000 

I 

000163 

DAY 

0001 

I 

000000 

ODD 

0005 

I 

0001 33 

DEG 

oooo 

I 

000122 

D0105 J 

0000 

D 

000001 

DPOATA 

oooo 

I 

000115 

EQ’J 

0000 

I 

000112 

E06ICHR 

oooo 

1 

000035 

EO'Jl 

oooo 

I 

000036 

E0'J2 

0005 

1 

000000 

EUNIT 

0007 

I 

001310 

FOQUT 

oooo 

I 

000172 

GRP 

0001 

I 

000003 

KH 

oooo 

I 

00001 1 

HlLLI 

0000 


000111 

HOUR 

0000 

I 

000061 

HZERO 

0000 

I 

000050 

HI 

oooo 

1 

00005 1 


oooo 

1 

000052 

K3 

0000 


000053 

HI 

0000 

1 

000051 

H5 

oooo 

I 

000055 

H6 

oooo 

I 

000056 

H7 

oooo 

I 

000057 

HS 

0000 

I 

000060 

H9 

0000 

1 

000121 

I 

oooo 

I 

0001 31 

IBAO 

oooo 

I 

000016 

1313 

oooo 

I 

00-0103 

ICOL 

0000 

I 

000116 

IOC HAN 

0000 

I 

000171 

ID.IP 

oooo 

I 

000213 

111 

oooo 

I 

000211 

Ifl 

■ oooo 

I 

000212 

II2 

0000 

I 

000061 

INCHAN 

0000 

I 

000101 

1N5TAT 

oooo 

I 

000131 

IREC 

oooo 

I 

000101 

iRoy 

oooo 

I 

000132 

ISCAN 

0000 

I 

000017 

I s.^iall 

0000 

I 

000136 

ISTCH 

oooo 

I 

000105 

J 

oooo 

I 

000150 

JC 

• oooo 

! 

00015 1 

ir* r» 

0000 

I 

000171 

JCHNL 

0000 

I 

000205 

JCK 

oooo 

I 

000173 

JCOL 

oooo 

I 

000201 

J3RP 

oooo 

I 

000127 

jj 

0000 

I 

000102 

JJL 

0000 

I 

000125 

JP 

oooo 

I 

000201 

JPL 

oooo 

I 

0001 21 

JPRT 

oooo 


000107 

JT 

0000 

I 

000210 

JX 

0000 

I 

000202 

J12 

oooo 

I 

000177 

J21 

oooo 

I 

000200 

J3 

oooo 

I 

000106 

K 

0007 


000000 

LABEL 

0005 

I 

000031 

LA3L 

0007 

1 

000027 

LI'IBUF 

oooo 

I 

000013 

LI1LIN 

oooo 

1 

000065 

L I-lRD'y 

0000 

I 

000070 

LIN 

0000 

I 

000071 

LINHOG 

oooo 

I 

000176 

L INSAV 

0007 

I 

000002 

LOSLIN 

oooo 

I 

000012 

LQL 1-1 

0000 

I 

000073 

LREC 

0000 

I 

000207 

LROy 

oooo 

I 

000067 

LSCAN 

oooo 

I 

000166 

LSTAT 

■ oooo 

I 

0001 37 

LSTPTR 

0000 


OC0027 

LUNIT 

0000 

I 

000206 

LWSTAT 

oooo 

I 

000117 

n 

oooo 

I 

000010 

’tIDLI-1 

oooo 

I 

000000 

PlIN 

ooo** 

I 

000006 

11(1 

0000 

I 

000113 

PlOVEl 

oooo 

1 

000111 

P13VE2 

oooo 

I 

000123 

’IPl 

oooo 

I 

000120 

N 

0000 

I 

000031 

NES 

0000 

I 

000162 

NE5EXP 

oooo 

I 

000013 

NESZRO 

oooo 

L 

000001 

NOCARO 

oooo 

L 

000003 

NQTAB 

0000 


000130 

NP 

0000 

i 

000175 

NXTPTR 

oooo 

I 

000170 

P8UF 

0003 

I 

006565 

PLTBUF 

0005 

R 

000501 

PQLYCO 

0000 

I 

00013.3 

PSCAN 

0000 

I 

000157 

flOATA 

oooo 

I 

000115 

SAVCHR 

oooo 

I 

00011 3 

SAVHR 

0007 


000057 

STITLE 

0001 


000012 

STPTPIE 

0001 


00001 1 

STRTPIE 

0010 

I 

000000 

TABB'JF 

oooo 

I 

000112 

TAPEF 

oooo 

I 

000126 

TAPE IN 

0000 


000077 

TAPEIO 

0000 

L 

000005 

TAPED 

oooo 

I 

000110 

TAPEl 

oooo 

I 

0001 1 1 

TAPE2 

0005 

I 

000512 

TFILL 

0000 

I 

000075 

TiniE 

0005 

I 

0005 15 

TinE-ns 

0007 

1 

001 312 

TI'IDUT 

0005 

I 

000020 

T I TL E 

0001 


000013 

TP 1 TIE 

0000 

I 

000072 

TREC 

0000 

I 

000066 

TSCAN 

oooo 

I 

000071 

TSF 

oooo 

1 

000167 

TSLOT 

oooo 

L 

000006 

TYPEl 

0000 

L 

000007 

TYPE2 

0000 

L 

OOOOlO 

TVPE3 

oooo 

L 

OOOOll 

TYPE1 

0000 

1 

000012 

TYPE5 

oooo 

1 

000110 

TICHR 

0000 

1 

000111 

T2CHR 

0000 

1 

000211 

WBAO 

oooo 

I 

000165 

URD 

oooo 

I 

000203 

ySTAT 

0005 

0 

000301 

XPT 

0000 


000220 

XYCALS 

0005 

R 

00035 3 

XYPAIR 

0005 

0 

000227 

YPT 

oooo 

R 

000011 

ZBIG 

oooo 

R 

000156 

ZOATA 

0000 

R 

000161 

znuLT 

0003 

R 

006565 

ZPLTBU 

oooo 

R 

000161 

ZSEC 

oooo 

R 

000015 

ZS1ALL 





01 


1* 

PARAflETER 

1 CHRWRO- 

11 ,niVREC = 

168,i1XBUF-3115 , 

f1XCHAN=11 

,WXDEG 

=5 



000000 



OOIOl 

2« 


• ,l4X5CAN=35,N0EGPl=5,NPTXY-21,PLlnlT=10,PRTRCy=5 6,PRTC0L-20 

000000 

ooim 

3* 


• ,LUCARD=5,L'JOUT=6,nXLin=12,TftBCOL=10 

000000 

ooioi 

4* 


*,HXBA[l = 20,NOEG=5,riXL0G = 21,BUFSII=5 04 

000000 

00103 

5* 


DOUBLE PRECISION ADP,OPOATA,AOPSET,XPT,yPT 

OOOOOl 

OOlOt 

6* 


REAL XVPAIR,POLYCO,A 

000001 

00105 

7* 


logical notab, nocard, TAPED 

OOOOOl 

00106 

8« 


LOGICAL TYPE1,TYPE2,TYPE3,TYP£4,TYPE5 

OOOOOl 

00107 

4* 


inPLICIT INTEGERCA-Y) 

OOOOOl 

00110 

10» 


conmON 

OOOOOl 

00110 

11* 


♦/BUFFER/BUF(nxBUF ),PLTBUF(BUFSI2) 

- OOOOOl 

00110 

12* 


♦ /TIf 1 ES/ 000 ( 3),HH( 31,ninC 3>, STRTnE, STPTnE,TPlT.'5E 

OOOOOl 

00110 

13* 


*/IO/EUNIT( 2),CARDIN( 14 ), TITLE! 12),LABL( 2,nxCHAN) 

OOOOOl 

69110 

14* 


*,CHAN(mxCHAN ) 

OOOOOl 

OOllO 

15* 


*,YPT( NPTXY ),XPT( NPTXY ),XYPAIR{ 2,NPTXY >,A( NOEGP 1 ) ,OEG( nxCHAN ) 

OOOOOl 

00110 

15* 


*,P0LYC0(NDEGP1 ).,TFILL( 3),TInEPl5( 31 

OOOOOl 

00110 

17* 


*/DPC0EF/ADP( N0EGPl,nxCHAN 1, AOPSET! NOEGPl ) 

OOOOOl 

00110 

18* 


*/COnOUT/LABEL( 2),LOGLIN(nXLOG ) ,L I(5BUF( nXL 115 , PRTflO’J ) ,CHANLC( !4XCHAN ) 

OOOOOl 

00110 

19* 


*,FOOUT( 2),TinOUT(I5X SCAN ) 

OOOOOl 

00110 

20* 


*/TABLOG/TABBUF(MXLOG, 12) 

OOOOOl 

00110 

21* 

C 


OOOOOl 

00111 

22* 


OIPIENSION STITLEC 10),ZPLTBU( 1 ) ,L Ii5L INC WXL 1.4 ),LUN ITC 3) 

000091 

00111 

23* 

C 


OOOOOl 

00112 

24* 


EQUIVALENCE ( ZPLTBU ,PLTBUF ) 

009001 

00113 

25* 


EQUIVALENCE ( STITLEC 1 ),Lin8UFC 1,3)) 

009001 

OOllS 

25* 


DATA 

OOOOOl 

00114 

27* 


*COLON/' ;'/ 

OOOOOl 

00114 

28* 


*COLONZ/'*«*'»«:'/ 

OOOOOl 

00114 

29* 


*NEG/'«*#«*-'/ 

OOOOOl 

00114 

30* 


*E0Ul/'««<*«*9'/ 

OOOOOl 

00114 

31* 


*EDU2/’**'*«*Z'/ 

000001 

00114 

32* 


*BLANK/' '/ 

OOOOOl 

00114 

33* 


*4I0L in/' / 

OOOOOl 

00114 

34* 


• HILin/'***'*'**'/ 

OOOOOl 

00114 

35* 


*LOL in/'*****-' / 

OOOOOl 

00114 

35* 


*NEGZR0/-0/ 

OOOOOl 

00114 

37* 


*ZBIG/1.0E+37/ 

OOOOOl 

00114 

38* 


*ZSnALL/l .OE-377 

OOOOOl 

00114 

39* 


*1613/0377777777777/ 

OOOOOl 

00114 

9 0* 


* I SnALL/04 00000000000/ 

OOOOOl 

00133 

41* 


DATA 

OOOOOl 

00133 

4 2* 


♦Hl/'l'/ 

OOOOOl 

00133 

4 3* 


*H2/'2'/ 

OOOOOl 

00133 

44* 


*H3/'3'/ 

OOOOOl 

00133 

45* 


*H4/'4'/ 

009001 

00133 

46* 


*H5/'5'/ 

OOOOOl 

00133 

47* 


•H6/'5'/ 

OOOOOl 

00133 

48* 


•H7/'7'/ 

OOOOOl 

00133 

4 9* 


•H8/’8'/ 

OOOOOl 

00133 

50* 


*H9/'9'/ 

OOOOOl 

00133 

51* 


*HZERO/'0'/ 

OOOOOl 

00133 

5 2* 


*STITLE/ 

OOOOOl 

00133 

5 3* 


*' DOD:HH;nn CHANNEL NO. VALUE E.U, CODE'/ 

OOOOOl 

00133 

54* 

f* 

*0 

NAnELIST INPUT 

OOOOOl 

00133 

55- 

c 


OOOOOl 

00147 

56* 


NAnELIST/XYCAL5/XYPAIR,P0LYCQ 

090001 

00150 

57* 


BADCRO=0 

000091 

00151 

58* 


8A0CHN=0 

000002 





001S2 

59* 

N0T«B=.PALSE, 

000003 


00153 

60* 

NOCARO=. FALSE. 

000005 


0015«l 

61* 

TAPE0=.TRUE. 

000005 


00155 

6 2* 

TYPE1=. FALSE. 

000007 


00156 

6 3* 

TYPE2=. FALSE. 

000010 


00157 

65* 

TYPE3=. FALSE. 

000011 


00160 

65* 

TYPE5=. FALSE. 

000012 

0 o 

00161 

66* 

TYPE5=. false. 

000013 


00162 

67* 

TFILLl 1 )=ISnALL 

000015 

- 

00163 

63* 

TFILLl 2)=IBIG 

000016 


00165 

69* 

TFILLC 3) = ISnALL 

000020 


00165 

70* 

INCHAN=0 

000022 


00166 

71* 

Linnou=3 

000023 

io ^ 

00167 

72* 

TSCAN=0 

000025 

C? 

00170 

73* 

LSCAN=0 

000026 


00171 

75* 

LIN = 0 

000027 


00172 

75* 

LINH0G=56 

000030 

bia 

00173 

76* 

trec=o 

000C32 

"C ix 

00175 

77* 

LREC=0 

000033 


00175 

78* 

rSF=9 

000035 


00176 

79* 

TinE='TlPlE ' 

000036 


00177 

80* 

CALIB=» » 

000050 


00200 

81* 

TAPEI0='TAPEI0' 

000052 


00201 

82* 

BLNKED='«*'*«* ' 

000055 


00202 

8 3* 

INSTAT=nXBUF 

000056 


00203 

85* 

00 25 JJL = l,nXLl!5 

000C5 3 

cn 

00206 

85* 

25 LiriLINl JJL )=BLANK 

000053 

1 

00210 

86* 

DO 26 ICQL=l,tnXLOG 

000061 


00213 

87* 

DO 25 IB0U=1,12 

000061 


00216 

88* 

25 TABBUFC ICOL, IROU )=BLA«5K 

000061 


00220 

89* 

26 CONTINUE 

000067 


00222 

90* 

LI!5LIN=3 

000067 


00223 

91* 

DO 27 JJL=l,mXLOG 

000075 


00226 

92* 

27 LOSLINC JJL )-BLANK 

000075 


00230 

9 3* 

DO 29 J=l,nXLri5 

000103 


00233 

95* 

DO 28 K=5,PRTR0W 

000103 


00236 

95* 

28 LIPTBUFI J,K )=BLANK 

000103 


00250 

96* 

29 LIPIBUFC J,2)=BLANK 

000105 


00252 

97* 

LinBUFC 11,3)=BLANK 

000113 

■ 

0025 3 

98* 

LIHBUFC 12,3)=5LANK 

000115 


00255 

99* 

TABBUFC2,3>='TimE ' 

000117 


00255 

100* 

TABBUFC 3, 3)='CHANNE' 

000121 


00256 

101* 

TABBUF(5,3)='L ' 

000123 


0025 7 

102* 

TABBUFl 1,5 )=' DDD:H' 

000125 


0025 0 

103* 

TABBUFt 2,5 )='H :l»in ' 

000127 


0025 1 

105* 

TABBUFI 3,5 )= ' 1-10 ’ 

000131 


00252 

105* 

TABBUFC 3,5 )='ll-20 ' 

000133 


00253 

105* 

TA3BUFC 3,6 )='21-30 ' 

000135 


00255 

107* 

TABBUFC 3,7 )=» 31-50 ' 

000137 


00255 

108* 

TABBUFC5,5 )=' ' 

000151 


00256 

109* 

TABBUFC5,5 )=' ' 

000153 


00257 

110* 

TABBUFC5 ,6 )=' ' 

000155 


00260 

111* 

TABBUFC5 ,7 )=' ' 

000157 


00261 

112* 

TABBUFC5 ,2)=’ 11' 

000151 


0025 2 

113* 

TABBUF(5,2)='llllll' 

000153 


0 0263 

115* 

TA3BUFC6,2)='l 2222' 

000155 


C0255 

115* 

TABBUFC?, 2)='22222 ' 

000157 



00265 

00266 
0026T 

00270 

00271 

00272 
0027 3 
00275 

00275 

00276 

00277 
30300 

00301 

00302 

00303 
00306 
00310 
00313 

00315 

00316 
00321 
00321 
00321 
00321 
00323 

00326 

00327 
00330 
00333 
00336 
00351 
0035 3 
00355 
00355 
00355 
00357 
00360 
00370 
00372 

00375 

00376 
00500 

00502 

00503 

00505 

00506 

00510 

00511 
00517 
00520 
005 22 
00525 
005 25 
005 27 
005 30 
00531 
00533 


116* 



TABB'JF( 8,2)^*333333' 

000161 

117* 



TABBUF(9,2)=*333 55* 

000163 

118* 



TABBUFl 10,2l=*555555' 

000165 

119* 



TABBUF(11,2)=*5 5555* 

000167 

120* 



7ABBUF( 12,2)=*55555 ' 

000171 

121* 



TABBUF( 13,2)=*666666* 

000173 

122* 



TBBBUFC 15,2)=*666 77* 

000175 

123* 



TABBUFC 15,2)=*777777* 

000177 

125* 



TABB'JFC 16,2)=*7 8888* 

000201 

125* 



TABBUF{ 17,2)=*88888 * 

000203 

126* 



TABBUFC 18,2)=*999999* 

000205 

127* 



TABB'JFC 19,2)=*999 00* 

000207 

128* 



TABBUFC 20, 2)=*000000* 

000211 

129* 



TABBUFC 21, 2)=*0 ' 

000213 

130* 



00 30 J:l,nxCHAN 

000220 

131* 


30 

CHAMC J)=BLANIC 

000220 

132* 



00 33 J=l,nXCHA,N 

000225 

133* 



LABLC 1, J)=6H0UTPUT 

000225 

135* 


33 

LABLC 2, J)=6H LABEL 

000226 

135* 



00 35 JT=1,BUFSI2 

000235 

136* ■ 


35 

PLTBUFC JT)=NEGZB0 

000235 

137* 

C 



000235 

138* 

C 


BEAD IN LEAD CARDS 

000235 

139* 

c 


■ 

000235 

150* 



READCLUCARD,2000,ERR=1900,ENO=115 )T!TLE 

000236 

151* 



TAPE0=.TRUE. 

OCG250 

15 2* 



TYPEl'-TRU*^. 

00025 2 

15 3* 



UBITECLUDU f,3000)TITLE 

00025 3 

155* 


50 

HEADCLL:CARD,2002,ERR=1900,END=117 ICAROIN 

000265 

155* 



URITECLUOUT,300l )CABDIN 

000275 

156* 



IFCCAROINC 1 ).NE.TI!5E )G0 TO 50 

000305 

157* 



TYPE2=.TRUE. 

000310 

158* 



READC 30,2005,EaR=1900,EMD = 117 )( BOOC J ) , HHC J ) ,(nmC J >, Jil , 3 ) 

000312 

159* 



GO TO 50 

000330 

150* 


50 

IFCCAR0INC1).NE.TAPEI0)S0 TO 60 

000332 

151* 



TYPE3=.TflUE. 

000335 

15 2* 



READC 30, 2006, Eflfl= 1900, END= 117 )TAPE 1 , TAPE2, TAPEF ,mOVEl ,H0VE2,£0'a 

000336 

15 3* 



IFC TAPE1.EQ.0)TAPEI=15 

000353 

155* 



IFC TAPEF.E0.0)TAPEF=7 

0C0 35 7 

155* 



IFC TAPEF.LT.O)TAPEO=. false. 

000363 

156* 



IFC .N0T.TAPE0)TAPEF=7 

000367 

157* 



IFC EOy.EO. BLANK )E0U='«*<*«*15* 

000373 

158* 



GO TO 50 

000500 

159* 


60 

IFCCARDINC1).E0.CALIB)G0 TO 61 

000502 

160* 



BADCRD=BADCRD*I 

000505 

161* 



UHITECLU0UT,5020 ) 

000507 

162* 



6 0 TO 5 0 

000515 

16 3* 


61 

READC 30,2008,ERR=1900,END = 117 )1DCHAN,EUNIT,"I,N 

000516 

165* 



TYPE5=.TRUE. 

000533 

165* 



IFCn.EO. 0)15=1 

0005 35 

166* 



IFCN.EQ.0)N=2 

000551 

167* 



INCHAN=INCHRN*1 

000555 

168* 



IFC INCHAN. GT.I5XCHAN1G0 TO 5056 

000550 

169* 



CHANLCC 1NCHAN)=IDCHAN 

00055 3 

170* 



OEGC INCHAN )=(5 

000556 

171* 



IFCIOCHAN.LT.1.0R.I0CHRN.ST.inXCHAN)GQ TO 5050 

000560 

172* 



CHANC INCHAN )=INCHAN 

000590 



001 31 

173* 


LABU l,lMCHAKn=EUNIT( 1) 

000502 


00135 

171* 


LABiC 2,INCHAN)=EUNIT( 2) 

000501 


00136 

175* 


READ! 5,xyCALS,EN0=119,ERR=1052) 

000506 


00111 

176* 


TYPE5=.TRUE. 

000511 


00112 

177* 


00 80 j=i,nptxy 

000525 


:*ii5 

178* 


00 79 1=1,2 

000525 


00150 

179* 


IF( AB5(XYPA!R( l,Jl).GT.0)b0 TO 90 

0005 25 


00152 

IBO* 


79 CONTINUE 

000510 


00151 

181* 


80 CONTINUE 

000510 

& & 

00156 

182* 


00 82 J=1,N0EGP1 

000510 


00161 

183* 


IR ABS(POLYCO( jn.GT.OlGO TO 110 

000510 


00163 

181* 


82 CONTINUE 

000516 

R ^ 

0016 3 

185* 

C 

CHECK FOR DEGREE AND NUnBER OF POINTS 

000516 


00165 

186* 


90 IFOn.GT.NOEG .0R.N,GT.NPTXY)30 TO 1000 

000516 


0015T 

187* 


00 95 J=1,N 

000563 

m. 

00172 

188* 


XPTt J ) = XYPA IR( 1 , J ) 

000571 

P fp' 

001T3 

189* 


95 YPT( J )=XYPAIR( 2, J ) 

• 000575 


00175 

190* 


CALL CURV6 1( XPT,YPT,n,N,A,ADPSET) 

000600 

Fp 

00176 

191* 


00 105 J=NPTXY 

000610 

S fe! 

00177 

192* 


DO 100 1=1,2 

000621 

£5 te 

00502 

193* 


100 XYPAIRC I, J )=0. 

000621 


co:3--i 

191* 


105 CONTINUE 

000622 


00505 

195* 


npi=n*i 

000622 


00506 

196* 


00 107 j=i,npi 

000625 


0051 1 

197* 


107 ADPC J, INCHAN )=ADPSET( J ) 

000633 


005 13 

198* 


GO TO 10 

0006 35 

cn 

005 13 

199* 

C 


000635 

1 

00511 

200* 


110 CONTINUE 

000637 

M 

00511 

201* 

C 


000637 

H 

005 11 

202* 

c 

PUT CALS IN PROPER ARRAY 

000637 


00515 

203* 


00 111 J=1,N0EGPI 

000637 


00520 

201* 


AOPt J,INCHAN)=POLYCO( J ) 

000616 


00521 

205* 


111 P0LYCQ(J) = 0. 

000617 


00523 

206* 


GO TO 10 

00065 1 

- 

00523 

207* 

c 


00065 1 


005 21 

208* 


115 CONTINUE 

00065 3 


005 25 

209* 


IF(NOTAB)GO TO 1900 

000653 


00527 

210* 


NOCARD=.TRUE. 

000651 


005 30 

211* 


•URITE(LU0UT,1003) 

000656 


00532 

212* 


117 CONTINUE 

000661 


005 33 

213* 


119 CONTINUE 

000661 


005 21 

211* 


IF( TYPEl )G0 TO 125 

000661 


005 36 

215* 

' 

TITLE! 1)=' VIDAR' 

000665 


00537 

216* 


TITLE! 2)=' DATA ' 

000667 


00510 

217* 


TITLE! 3)='ACQUIS' 

000671 


00511 

218* 


TITLE! 1 )='ITION ' 

000673 


00512 

219* 


TITLE!5 )=' SYSTE.-n' 

000675 


00513 

220* 


DO 120 J=6,12 

000702 


00516 

221* 


120 TITLE! J )=BLANK 

000702 


. 00550 

222* 


125 IF!TYPE2)G0 TO 130 

000705 


0055 2 

223* 


130 IF! TYPE3 )G0 TO 135 

000707 


00551 

221* 


TAPE1=15 

000710 


00555 

225* 


TAPE2=0 

000712 


00556 

226* 


TAPEF=7 

000713 


00557 

227* 


ni0VEl = 0 

0097 15 


00560 

228* 


n0VE2=0 

0907 16 


00561 

229* 


EDU= ' ***'*'tT ' 

000717 



ZT- 


00562 

230* 


135 

IF( TYPE1 )G0 TO 110 


000722 

00S65 

231* 


110 

IF(TVPE5)G0 TO 115 


0007 2>l 

00566 

232* 



lNCHftN=HXCHAN 


000725 

0056T 

233* 



(1=1 


000727 

005 TO 

231* 



DO 111 J=l,lNCHAN 


000736 

005 T 3 

235* 



0E6U)=H 


000736 

005TH 

236* 



CHANUC(J)=J 


000710 

00575 

237* 



CHAN(J>=J 


000712 

03576 

238* 



AOP( 1, J )=0.00 


000711 

00577 

239* 


111 

AOPC 2, J)=1.0D0 


000716 

00601 

210* 


115 

CONTINUE 


00075 3 

00602 

211* 



CALL F02F0(l,Hl,l,TnLE(l),l) 


00075 3 

00603 

212* 

■ 


DO 117 JPnT=l,12 


000767 

00606 

213* 


117 

TABB'JFC JPRT,1 )=TITLEUPST) 


000767 

00610 

211* 



00 170 jp=i,inxLiin 


000771 

00613 

215* 



LinBUFUP, n=TITLEUP) 


000771 

006 IH 

216* 


170 

TABB'JFC JP, n = TlTLE(JP) 


000775 

00611 

217* 

C 


POSITION INPUT TAPES 


000775 

00611 

218* 

C 




000775 

00616 

219* 



1F( TAPE I.GT.OIC ALL NTRANC TAPE 1,22) 


001000 

00620 

25 0* 



IF( TAPEI.GT.OICALL NTRANC TAPEl, 10) 


001007 

00622 

251* 



CALL NTRANC TAPE1,22) 


001016 

00623 

25 2* 



lF((nOVEl.GT.O)CALL NTRANC TAPE 1, 8 .tnOvE 1 ) 


001022 

006 25 

25 3* 



CALL NTRANC TAPET, 22) 


001032 

00626 

251* 



TAPE1N=TAPE1 


001036 

00626 

25 ‘^* 

c 


CONVERT START/STOP AND FIRST TldE CHECKS TO -MLLISECONOS 


001036 

00627 

256* 



J=0 


001010 

006 30 

257* 



00 188 JJ=1,3 


001011 

00633 

25 8* 



J = J*1 


001011 

006 31 

259* 



IFCDOOC Jl.NE.O.OR. HHC J ) .NE . 0 . OB . PtflC J ) .NE . 0 )S 0 TO 135 


001017 

006 36 

26 0* 



TinE.ISC J ) = TFILLC J ) 


001065 

006 37 

261* 



GO TO 183 


001067 

00610 

26 2* 


185 

CALL OHHEinSC ODDC J ) , HHC J ) ,(nnC J ) , T nEil SC J ) , 1 1 35 0 ) 


001071 

00611 

263* 


188 

CONTINUE 


001112 

00613 

261* 



EOWl=EOy 


001112 

00611 

265* 



URITECLtrOUT, 300^2) 


001111 

00611 

266* 

c 




001111 

00611 

267* 

c 




001111 

00611 

268* 

c 


PRINT INITIAL CONDITIONS FOR EXECUTION 


001111 

00616 

269* 



UR 1 TEC LU OUT, 300 3) TITLE 


001121 

00651 

270* 



URITECLUOUT, 3001 )OOOC 1 ),HHC 1 ),HinC 1 ),TI'nE!nSC 1 ) 

• 

001131 

00657 

271* 



UR1TECLUOUT, 3005 )000C 2 ) ,HHC 2 ) ,1.'nc 2),TKnE’1SC 2) 


001112 

00665 

27 2* 



URITECLUOUT, 3006 )DODC 3), HHC 3),fimC 3),Tl!lE!nSC 3) 


001 15 3 

00673 

273* 



URITECLUOUT, 3007 ITAPEl 


001161 

00676 

271* 



URITECLU0UT,3008)TAPE2 


001172 

00701 

275* 



UflITECLU0UT,3009)TAPEF 


001200 

00701 

276* 



URITECLUOUT, 3016 )E0'jJl 


001206 

00701 

277* 

c 


00 193 JJJ=1, INCHAN 


001206 

00707 

278* 



DO 193 J = l,INCHAf; 


001220 

00707 

279* 

c 


J=CHANLCC JJJ ) 


001229 

00712 

280* 



NP=DEGCJ)*1 


001221 

00713 

281* 



URITECLUOUT, 3010 JCHANLCC J ),LABLC 1, J ),LA9LC 2, J ),OEGC J ) 


001227 

00721 

282* 


193 

UflITECLU0UT,3011)C A0PCK,J),K=1,NP) 


001212 

00721 

29 3* 

c 




001212 

00721 

281* 

c 


READ INPUT TAPE 


001212 

007 30 

295* 



IFCBADCRD.GT.O)GO TO 1900 


091269 

007 32 

* 

286* 

1 



IREC=0. 

> 

» 

001263 


00T32 

287* 

C 


* 

001263 

007 33 

298* 


■ 200 

ISCAN=0 

001265 

0073H 

289* 



PSCAN=0 

001265 

00735 

290* 



DO 205 JJ = 1,II45TAT 

001273 

007'! 0 

291* 


205 

BUF( JJ>=NEGZRO 

001273 

007*12 

292* 



CALL NTRAN( TRPEIM,2,MXBUF,BUF, INSTATl 

001275 

007 *» 3 

293* 



!nEC=IR£C*l 

001304 

OO?**** 

294* 


220 

CALL NTRA\( TAPEI'<,22) 

001310 

007 IS 

295* 



1F( INSTAT.EO.-llGO TO 220 

001313 

00747 

296* 



IF( 1NSTAT.lt. nXBUF.AND.INSTAT.SE.NINflEC) GO TO 230 

001316 

0075 1 

297* 



I8AD=1BA0+1 

001334 

00752 

298* 



UR1TE(LU0UT,4020 ) 

001337 

00754 

29 9* 


. 

WRnE(L'J0'JT,4025 )IREC,INSTAT 

001344 

00760 

300* 



IF( IBAD.GT.nXBAOlGO TO 1500 

00135 3 

00752 

301* 



.1F( INSTAT.EQ.-2HRE-C = IREC-1 

001357 

00764 

302* 



IF{ 1NSTAT.EQ.-21G0 TO 1500 

001365 

00766 

30 3* 



1F{ INSTAT.EQ.-GIGO TO 1500 

001370 

00770 

304* 


230 

CHRALL = IN5TAT*6 

001374 

00771 

305* 



1STCH=1 

001376 

00772 

306* 



LSTPTR=0 

001400 

00773 

307* 


231 

TlCHRrO 

001402 

00774 

308* 



CALL SCHCHRtBUF,ISTCH,3,C0U0NI,TlCHR,54030) 

001402 

00775 

309* ■ 



HQUR=0 

001412 

00776 

310* 



inlN = 0 

001413 

00777 

311* 



E0UCHR=0 

001414 

01000 

312* 



CALL 5CHCHR(BUFC1),ISTCH,19,EQW1, E0WCHR,5240) 

001415 

01001 

313* 



GO TO 25 0 • 

001425 

01002 - 

314* 


24 0 

CALL SCHCHR<BUF( 1 1 , I STCH , 18 , E0W2 ,EOwCHR , 54 04 0 ) 

001427 

01003 

315* 


25 0 

CALL F02INT( BUF( 1 1 , TICHR -2, 2 , HQU R , 5 1 35 0 5 

001437 

01004 

315* 



CALL F02tNT( B'JFC 1 l.TlGHRtl ,2,miN ,5 1850 ) 

001450 

01005 

317* 



1SCAN=1SCAN*1 

001462 

01006 

318* 



l'FCHOUR.LT.SAVHR)ODO( 3)=D00{ 3)*1 

001465 

01010 

319* 



SAVHR=HOUR 

001474 

01011 

320* 



CALL DHfn2nSCDD0( 3 ) , HOU R>1N . T imO'J Tl ISG AN ) , 5 185 0 ) 

001476 

01011 

321* 

C 



001476 

01012 

322* 



LSTPTR=EO'JCHR 

0015 10 

01013 

323* 



ISTCH=E0WCHR*1 

001512 

01014 

324* 



IFCTlmOUTC ISCANl.GT.TlnE.’HSC 2))G0 TO 1500 

001514 

01014 

325* 

C 



0015 14 

01014 

326* 

C 


GET NEXT TIHE CHARACTER TO GET DATA WORDS PER SCAN 

001514 

01016 

327* 



IFC I’SCAN.EO.nXSCANlGO TO 26 3 

001520 

01020 

328* 



CALL SCHCHRCB'jFt 1 ) , I STCH , CHRALL-I STCH ,C OL ONZ , T2CHR ,54 0 30 1 

001523 

01021 

329* 

■ 


5AVCHR=T2CHR 

0015 35 

01021 

330* 

C 



0015 35 

01021 

331* 

c 

GET DATA WORDS 

001535 

01021 

332* 

c 



0015 35 

01022 

333* 



OATURD=( T2CHR-T1CHR )/CHRWHD-l 

001537 

01023 

334* 



ISTCH=T2CHR-2 

001544 

01024 

335* 



GO TO 35 0 

001547 

01025 

336* 


26 3 

0ATURD-(CHRALL-LSTPTR)/CHRURD-1 

001551 

01025 

337* 

c 


GET CHANNEL FRQN CHR POS 3-5 

00155 1 

01026 

338* 


35 0 

IFCTinOUTC ISCAN).LT.TmEmS( l))GO TO 1485 

001557 

01030 

339* 


355 

CHNL=0 

001564 

01031 

34 0* 



CALL FD2INT(8UF( 1 ),L 5TPTR + 3, 3,CHNL ,54 049 ) 

001564 

01031 

34 1* 

cx 

WRITE(LUOUT,5 000 )CHVL,DATQUtn, JCC,FOQ!JT( 1 ),FDOUT( 2) 

001564 

01032 

34 2* 

5000 

FQR1ATC IX , lOQl 3 ) 

001603 

01033 

34 3* 



DO 350 JC=l, INCHAN 

001603 



0I03S 

34 4* 


JCC=JC 





001603 


0103S 

345* 

CX 

CHOump 





001603 


01036 

346* 

CX 

IFICHDUMP.GT.IOOIGQ TO 5001 





001603 


01036 

347* 

cx- 

URITEf LU OUT, 5 000 )JC,CHANLC( JC ),CHNL , ISCAN, IREC 




001603 


01036 

348* 

CX 

CHDU(iP=CHOUnP + l 





001603 


01037 

34 9* 

5 001 

CONTINUE 





001605 


01040 

350* 


IFtCHNL .EO.CHANLCI JC )- 1 )G0 TO 400 





001605 


01040 

35 1* 

c 






001605 


01040 

352* 

c 

CHNL 000 ON INPUT TAPE USES 001 ON LEAD CARD 

INPUT 

& 

OUT LABEL 


001605 


0104 0 

35 3* 

c 






001605 


01042 

354* 

360 

CONTINUE 





001613 


01044 

355* 


GO TO 1485 





001613 


01044 

356* 

c 

GO TO NEU SCAN 





001613 


01045 

357* 

400 

CONTINUE 





001615 


01040 

35 8* 


CHR1=0 





001615 


01047 

35 9* 


CALL FD2INT(8UF( 1 ) ,L STP TR* 1 , 1 ,CHR 1 , 54 05 7 1 





001615 


01050 

360* 


IFICHRI .EO.O )G0 TO 1450 





001627 


01052 

361* 


IFCCHRl .GT.6 )G0 TO 1450 





001631 


01054 

362* 


IF(CHR1.LT.0)GG TO 1450 





001635 


01056 

363* 

605 

CHR2=0 





001641 


01057 

364* 


CALL FD2FD( l,BuF( l),LSTPTfl*2,CHR2,6 ) 





001641 


01057 

365* 

CX 

IFCCHB2.NE.BLNKE0 )G0 TO 650 





001641 


01060 

366* 


IF(CHR2.EQ.riIDLin )G0 TO 650 





001653 


01062 

367* 


IF(CHfl2.EQ.L0LIin)G0 TO 650 





001656 


01064 

368* 


1F(C*HR2.E0.HIL1M )G0 TO 650 





001661 

CD. 

1 

01066 

369* 


IF(CHR2.E0.BL.NKED)G0 to 610 





001664 

01070 

370* 


LSTPTR=LSTPTR*1 





001667 

1-* 

01071 

371* 


GO TO 605 





001672 


01071 

37 2* 

c 






001672 


01071 

37 3* 

C LIMIT DATA PATCH TO SHIFT EXTRA CHARACTERS AND 

GET 

LOG 

DATA 


001672 


01071 

374* 

C 






001672 


01072 

375* 

610 

CONTINUE 





001674 


01072 

376* 

C 






001674 


01072 

377* 

c 

SHOULD HAVE LOG MODE OR OVERLOAD DATA 





001674 


01072 

378* 

c 





• 

■ 001674 


01073 

379* 


CHR7=0 





001674 


01074 

380* 


CALL F02F0(6,BUFC 1 ),LSTPTR+7,CHR7,6 ) 





001674 


01075 

381* 


CHR13=BLANK 





001706 


01076 

382* 


CALL FD2FDC l.BUFC 1) ,L STP TR* 1 3, CKR 1 3 , 6 ) 





001710 


01077 

38 3* 


IF(CHR7. NE. BLANK )G0 TO 650 





001722 


OllOl 

384* 


Z0ATA=2BIG 





001725 


01102 

385* 


GO TO 1000 





001727 


. 01103 

386* 

640 

CONTINUE 





001731 


01103 

387* 

c 

FLOAT DATA 





001731 


01103 

388* 

c 






001731 


01104 

389* 


CALL r:D2INT(BUF( 1 ), L STP TR + 7 , 5 , RDATA , 54 05 7 ) 





001731 


01105 

390* 

. 

CHR6=0 





001742 


01106 

391* 


CALL FD2F0C l.BUFC 1 ) ,L STPTR+6 , CHR6 , 6 ) 





001743 


01107 

392* 


IFCCHR6.EQ.NEG )ZMULT=-1 . 





001755 


01111 

393* 


IF(CHR5 .EO .BLNKED )2MULT=1 . 





001762 


01113 

394* 


CALL F02INTCBUFC 1 ) ,L STP TR+ 1 2, 1 ,NEG EXP , 54 05 7 ) 





001774 


01114 

395* 


ZDATA=( ZnULT*RDATA )/10**NEGEXP 





002006 


01115 

396* 


FDOUTC 1 ) = 6H 





002022 


01116 

397* 


F00UT(2)=6H 





002024 


01117 

398* 


IF(CHR1.GT.4 )G0 TO 1000 





002026 


01121 

399* 


0PDATA=ZDATA 





002032 


01121 

400* 

cx 

IF(CHNL.NE.24 .AND. CHNL .NE. 25 )G0 TO 11113 





002032 



CD 

Cn 


01121 

101* 

CX 

IFCNEGCK.GT.IOIGO TO 11113 

01121 

102* 

CX 

NEGCK=N£GCK*1 

01121 

10 3* 

CX 

lFtCHNL.E0.21 )yHlTE(LUOUT,lllll ICHNL.ZMULT 

01121 

101* 

CX 

1F(CHNL.EQ.25 lUfl ITEt LU O'J T , 1 1 1 1 1 )CHNL,ZnULT 

01122 

105* 

1 1 1 1 1 

FORdATt *0CHNL = ’,I6,' ZnULT=’ ,E15 .8, 'OPOATA 

01122 

106* 


•' FOOUT=',2A6,'ZOATA=',E15.8) 

01122 

107* 

CX 

URITE(LU0'JT,5555 ICHR 1 ,CHR2,CHR6 ,CHfl7 ,CHR1 3 

01123 

108* 

11113 

CONTINUE 

01121 

109* 


CALL EVALFTt OPDATA,DEG( JCC 1 , ADPt 1 , JCC 1, ZD A 

01125 

110* 


CALL FP2FD( ZOATA^IZ, 3,F0QUT( 11,1) 

01125 

111* 

CX 

IF(CHNL.NE.21.AVD.CHNL.NE.25 )G0 TO 11116 

0 1 125 

112* 

CX 

IFtNEGCK.GT. 10)30 TO 11116 

0 1 1 25 

113* 

CX 

IFtCHNL .E0.21 IWRITEtLUQ'JT, llimCHNL.ZJTJLT 

01125 

111* 

CX 

IF(CHNL.E0.25 )WRITE(LUO'JT,imi ICHNL.ZHULT 

01125 

115* 

CX 

UflITE(LU0'JT,5555 ICHRl ,CHR2,CHR6 ,CHR7,CHR-: 3 

01126 

116* 

11116 

CONTINUE 

01127 

117* 


GO TO 105 0 

01130 

118* 

1000 

IFtLABLt 1, JCC ).EQ. BLANK ILABU 1, JCC )=CHR13 

01132 

119* 


CALL FP2FD( ZDATA,6, l,FDQUT,1 ) 

01133 

120* 

1050 

LABEL! 1 )=LABL( 1, JCC) 

01131 

121* 


LABEL! 2)=LABL( 2.JCC ) 

01131 

122* 

c 


01131 

123* 

c 

CHECK TinO'JT 

01131 

121* 

C 


01135 

125* 


CALL HS2DAY( TIIOUTt 1 SC AN ), OA V, HOU R , H IN, 2 SE 

01135 

126* 

c 

BUILD TIDE OUTPUT WORD FOR TABS 

01136 

127* 


LiniLINC 2)=BLANK 

01137 

128* 


CALL INT2FD! DAY.3,LinLINt 1 ),2) 

OHIO 

1 29* 


CALL F02F0( 1 ,C OL ON ,6 ,L IdL IN! 1 ),5 ) 

0111 1 

130* 


CALL INT2FD(H0UR,2,LmLIN( 1),6 ) 

01112 

131* 


CALL FOZFDt 1 ,C OL ON , 5 ,L IHL INC 2 ) , 2 ) 

01113 

132* 


GALL INT2FD(f1IN,2,LinLIN( 21,3) 

01111 

133* 


LOGLINC 1 )=LI!5LIN( 1 ) 

01115 

1 31* 


LOSLIN! 2)-Ll.'nLINt 2) 

01115 

135* 

c 


01115 

136* 

C CHECK FOR LOG mODE OR OVERLOAD 

01115 

137* 

C 


01116 

138* 


IF(CHR2.EQ,BLNKED )G0 TO 1200 

01116 

139* 

C 


01116 

110* 

C 

SPACE LIPIIT TAB LINE 

01116 

111* 

C 


01150 

112* 


CALL F02FDC 3,BUF( 1 ) ,L STPTR*3 ,L IdL IN! 3),1 ) 

01151 

113* 


CALL FD2FCC 9,FD0UT! 1 ) , 1 ,L IdL INC 5 ),1 ) 

0115 2 

111* 


CALL FDZFDt 9 ,LRBELC 1 ), 1 ,L IHL INC 8 ) , 1 ) 

0115 3 

115* 


CALL FOZFDt l,BUFC 1 ),L5TPTR*2,Lir.LINt lO ),6 ) 

01153 

116* 

C 


01153 

117* 

C 

PUT LinBUF ON HASS STORAGE 

01151 

- 118* 


LinROU=LinRO'jJ + l 

01155 

119* 


00 1075 j=i,nxLin 

01 16 0 

150* 


LimBUFC J,LinRQy )=LIPILINC J) 

01161 

151* 

1075 

LldL INC J )=BLANK 

01163 

152* 


uRD=nxL ifn*LinROu 

01161 

153* 


IFCLinROUl.LT.PRTRQUlGO TO 1085 

01166 

151* 


CALL NTRANt TSF , 1 ,URO ,L IHBUF! 1, 1 ),LSTAT) 

01167 

155* 

1076 

CALL NTRANt TSF, 22 ) 

01170 

156* 


IFCLSTAT.EQ.-l )G0 TO 1076 

01 172 

157* 


LR£C=LREC*1 


. 8 , 


:hvl 


002032 
002032 
002032 
002032 
002031 
0020 31 
002031 
002031 
002031 
002050 
002050 
002050 
002050 
002050 
002050 
002057 
00205 T 
002061 
002071 
002101 
002101 
002101 
002101 
002101 
002106 
002106 
002121 
002123 
002131 
002110 
002116 
002155 
002163 
002165 
002165 
002165 
002165 
002167 
002167 
002167 
002167 
002172 
002201 
002213 
002222 
002222 
002222 
002231 
002237 
002216 
002217 
002252 
002255 
002261 
002271 
002271 
002277 


01W3 

558» 


LinR0U=3 

002302 

0U7*l 

559» 

1085 

CONTINUE 

002305 

0U75 

560* 


GO TO 1550 

002305 

01175 

T61* 

C 


002305 

01175 

562* 

C 

FIRST WORD PER SCAN IS TltlE 

002305 

01175 

563* 

C 


002305 

01175 

565* 

C 

STORE AND OUTPUT FOR FIXED SAMPLE RATE TAPE 

002305 

01175 

565* 

C 


002305 

01175 

566* 

C 


002305 

01175 

567* 

C 

DATA USES SLOTS 2 THROU 52 PER SCAN AND 12 SCANS 

002305 

0117S 

56B* 

1200 

1F( ISCAN.EQ.LSCAN ISO TO 1205 

002306 

01200 

569* 


LSCAN=ISCAN 

002310 

01201 

570* 


TSL0T=TSCAN*52*1 

002312 

01202 

5 71* 


PLTBUFC TSLOT)=rinOUT( ISCAN ) 

002320 

01203 

572* 

1205 

P8UF=CHANLC( JCC 1+TSLOT 

002323 

0l20‘» 

5 7 3* 


IFCPBUF.GT.B'JFSIZIGO TO 1900 

002326 

01206 

575* 


ZPLTBUC PBUF )=2DATA 

002331 

01206 

575* 

C 

- 

002331 

01206 

576* 

c 

SET UP AND SPACE LOS TAB LINE BY THE SCAN 

002331 

01207 

577* 


LUNIT( 1 )=BLANK 

002335 

01210 

578* 


LUNIT( 2)=BLANK 

002336 

01211 

579* 


LUN1T( 3)=BLANK 

002337 

-01212 

580* 


JCHNL=1 

002350 

01213 

5 81* 


GRP = 0 

00235 2 

01215 

58 2* 


00 1225 JCOL=JCHNL,50,TABCOL 

002351 

01217 

5 8 3* 


GRP=GRP*1 

002351 

01220 

585* 


IFICHANLCdCO.EQ.JCOLlSO TO 1230 

002355 

01222 

5 85* 

1225 

CONTINUE 

002361 

01225 

586* 


GO TO 1235 

002361 

01225 

587* 

1230 

CALL F02F0' 9,FD0UTt 1 ),5 ,TA33UFC5 ,GRP*3 ),5 ) 

002363 

01226 

588* 


CALL F02FDC 9, LABEL! 1) , 1 , TAB3UFC 5 ,G RP*3 ) ,5 ) 

002376 

01227 

589* 


GO TO 15 25 

0025 10 

01230 

59C* 

1235 

JCHNL=2 

. 002512 

01231 

591* 


GRPrO 

U0 25 13 

01232 

592* 


DO 1255 jC0L=JCHNL,nxCHAN,TA3CQL 

002523 

31235 

5 93* 


GRP=SRP-*^l 

-002523 

01236 

595* 


IF(CHANLC( JCC l.EQ. JCQL ISO TO 1250 

002526 

01250 

5 95* 

1255 

CONTINUE 

0025 33 

01252 

596* 


GO TO 1255 

0025 33 

01253 

597* 

125.0 

CALL F02FOC9,FDOUTU),5,TAB3UF(6,SRP + 8),3> 

0025 35 

01255 

598* 


CALL F02FDC9,LABEL< n,l,TABBUFC6,SRP*3),3) 

002550 

01255 

599* 


GO TO 15 25 

002562 

01256 

500* 

1255 

JCHNL=3 

002565 

01257 

501* 


GRP=0 

002565 

01250 

502* 


DO 1265 JC0L=JCHNL,nXCHAN,TA3C0L 

002575 

0125 3 

503* 


GRP=GRP*1 

002575 

01255 

505* 


IF(CHANLC< JCC ).E3. JCQL ISO TO 1270 

002500 

01256 

505* 

1265 

CONTINUE 

002505 

01260 

5 06* 


GO TO 1275 

002505 

0126 I 

507* 

1270 

CALL FO2FO(9,FD0UT( 1),5,TABBUF(8,5RP*8),1) 

OOEF'if 

01262 

508* 


CALL FD2FD( 9,LABEL( 1 ), 1, TA33'JF{ 3,GRP + 3), 1 ) 

0025^.2 

01263 

509* 


GO TO 1525 

0025 35 

01265 

510* 

1275 

JCHNL=5 

0025 36 

01265 

511* 


GRP=0 

0025 37 

01266 

512* 


DO 1285 JCOL=JCHNL,nXCHAN,TABCQL 

002557 

0127! 

513* 


GRP=SRP*1 

002557 

0127 2 

515* 


IFCCHANLC! JCC ) .EO. JCQL )GD TO 1290 

002552 



?)BIGMAI] PAGE IS 
POOH QUALro" 




OliTI 

515* 

1285 

’CONTINUE 

002557 

01276 

516* 


GO TO 1295 

002557 

01277 

5 17* 

1290 

CALL F02F0C 9,F00'JT{ 1 ),5,TAB8UF( 9,GRP*8),5 ) 

002561 

01300 

518* 


CALL FD2FD( 9, LABEL! 1),1.TABBUF( 9,GRP*3),5 1 

002575 

01301 

519* 


GO TO 1525 

002606 

01302 

520* 

1295 

JCHNL=5 

002610 

01303 

521* 


GRP = 0 

002611 

0130‘t 

522* 


DO 1305 JCDL=JCHNL,!5XCHAN,TABC0L 

002621 

01307 

5 23* 


GflP=GRP*l 

002621 

01310 

5 25* 


IF(CHANLC( JCO.EO.JCODGO TO 1310 

002625 

01312 

5 25* 

1305 

CONTINUE 

002631 

0131** 

526* 


GO TO 1315 

002631 

01315 

527* 

1310 

CALL FD2FDC 9,FD0UTC 1),5,TABBUF( ll,GRP+8),3) 

002633 

01316 

528* 


CALL FD2FDI 9,LAB£L( 1 ),1,TABBUF( 11,GRP*3),3V 

002656 

01317 

5 29* 


GO TO 1525 

002660 

01320 

5 30* 

1315 

JCHNL=6 

002662 

01321 

5 31* 


GRP=0 

00266 3 

01322 

532* 


00 1325 JC0L=JCHNL,I5XCHAN,TABC0L 

002673 

01325 

533* 


GRP=GRP*1 

002673 

01326 

5 35* 


IF(CHANLC( JCO.EO.JCOLIGO TO 1330 

002676 

01330 

5 35* 

1325 

CONTINUE 

002703 

01332 

5 36* 


GO TO 1335 

002703 

01333 

537* 

1330 

CALL FD2FD{9,FD0'JT{ 1),5,TA3BUF( 13,GRP*9),11 

002705 

0133*1 

538* 


CALL FD2FD( 9, LABEL! 1 ), 1,TABBUF( 13,SRP*3), 1 ) 

002720 

01335 

5 39* 


GO TO 1525 

002732 

01336 

550* 

1335 

JCHNL:=7 

002735 

01337 

i 51* 


GRP = 0 

0027 35 

013**0 

55 2* 


DO 1350 JCQL=JCHNL,P1XCHAN,TABC0L 

002755 

013*»3 

55 3* 


GRP=GRP+1 

002755 

013*15 

555* 


IFCCHANLCC JCC ).EQ. JCOL 130 TO 1350 

002750 

01356 

555* 

135 0 

CONTINUE 

002755 

01350 

556* 


GO TO 1355 

002755 

01351 

557* 

1350 

CALL F02FDC 9,FD0UT( l),5,TABaUF( 15,GRP*8 ),5 ) 

002757 

0135 2 

558* 


CALL FD2FDC 9,LABEL( 1 ), 1,TABBUF{ 15, GRP *3 1,5 1 

002772 

01353 

559* 


GO TO 15 25 

003005 

01355 

550* 

1355 

JCHNL=8 

003006 

01355 

55 1* 


GRP = 0 

003007 

01356 

552* 


DO 1365 jCOL=JCHNL,flXCHAN,TABCOL 

003017 

01361 

55 3* 


GRP=GRP*1 

003017 

01362 

555* 


IF(CHANLC( JCO.EO.JCODGO TO 1370 

003022 

01365 

555* 

1365 

CONTINUE 

003027 

01366 

556* 


GO TO 1375 

003027 

01367 

557* 

137 0 

CALL FD2FDC 9,FD0UTC 1 ), 5 , TABBUF! 1 6 ,G RP*8 ) , 3 ) 

003031 

01370 

558* 


CALL F0 2FDC 9,LABELC 1 ) , 1, TABBUFC 16 ,G RP *3 ) , 3 ) 

003055 

01371 

559* 


GO TO 15 25 

003056 

01372 

560* 

1375 

JCHNL=9 

003060 

01373 

561* 


GRP=0 

003061 

01375 

562* 


DO 1385 JCOL=JCHNL,mxCHAN,TABCOL 

003071 

01377 

563* 


GRP=GRP*1 

003071 

01500 

565* 


IFCCHANLC! JCC l.EO.JCOL ISO TO 1390 

003075 

01502 

565* 

1385 

CONTINUE 

003101 

01505 

566* 


GO TO 1395 

003101 

01505 

5 67* 

1390 

.CALL FD2FD! 9,FD0UT( 1),5,TABBUFC 18,GRP*8 ),1 ) 

003103 

01506 

568* 


CALL FD2FD! 9, LABEL! 1 ), J^rTABBUF! 18, GRP *3), 1 ) 

003116 

01507 

569* 


GO TO 15 25 

003130 

01510 

570* 

1395 

JCHNL=IO 

003132 

015 11 

571* 


GRP = 0 

003133 


* w»< 


01<I12 

572* 


00 1505 JCOL=JCHNL.nxCHAN,TABCOL 

003H3 

oms 

573* 


GRP=GRP*1 

003153 

OH 16 

575* 


IFtCKANLCt JCC l.EQ. JCOL IGO TO 1510 

003H6 

OH 20 

5T5» 

1505 

CONTINUE 

003153 

0H22 

576* 


GO TO 1525 

003153 

OH 23 

577* 

1510 

CAUL FD2Fn( 9,FDQUT( 1 ),5 »TAB8UF( 19,6RP*8 ),5 1 

003155 

014 2<i 

5 78* 


CALL F0 2F0( 9, LABEL! 1 1, 1,TA8BUF( 19,GRP*3),5 ) 

003170 

OH 25 

575* 

15 25 

CONTINUE 

003203 

OH 25 

580* 

C 


003203 

OH 25 

581* 

c 

PUT THE IN TABBUF 

003203 

OH 25 

582* 

c 


003203 

0H26 

583* 


TABBUFC 1,GRP*8)=LQSLIN( 1 ) 

003203 

O H 27 

5 85* 


TABBUFI 2,GRP*81=L03L1N( 2) 

003206 

0H27 

5 85* 

c 


003206 

0H27 

586* 

c 

CHANNEL ROW TABBED OUT 1-10... 31-50 

003206 

OH 27 

587* 

c 


003206 

0H30 

588* 


TABBUFI 3,GRP + 8)=TA3BUF( 3,SRP*3) 

003210 

0H31 

589* 


LIN=LIN*1 

003212 

0H32 

590* 


TABBUFC 1,GRP^8)=L0QLIN( 1 ) 

003215 

015 33 

591* 


TABBUFC 2, GRP*8)=L0GLIN( 21 

003217 

OH 35 

592* 


DO 1526 JJL=l,nXLOS 

003225 

015 37 

5 9 3* 

15 26 

LOSLINC JJL 1=BLANK 

003225 

01537 

5 95* 

c 


003225 

OH 37 

595* 

C 1 

HARE CHANNELS ? 

003225 

015 37 

596* 

c 


003225 

0155 1 

597* 

1550 

DATWRO-OATURD-l 

003227 

01551 

598* 

cx 

lOriP CHR 

003227 

01552 

599* 


lFMD(nP.ST.T21S0 TO 1551 

003231 

01552 

600* 

cx 

WRITE! LU OUT, 5 555 ICHRl ,CHR2,CHR6 ,CHH7 ,CHR1 3,CHNL 

003231 

01555 

601* 

5555 

FORriAT! 1X,6012) 

003235 

01555 

602* 


lOfflP=iDnP*i 

003235 

0155 6 

603*, 

1551 

CONTINUE 

003251 

01557 

605* 


LSTPTR=LSTPTR*12 

003251 

01550 

605* 


call SCHCHRCBUF! n.LSTPTR, 6, EOWl.NXTPTR, 5 15521 

00325 3 

01551 

606* 

♦ 

GO TO 1555 

003253 

0155 2 

607* 

1552 

CALL SCHCHR! BUFC n,LSTPTR,6,E0W2,NXTPTR,55050) 

C03255 

01553 

608* 

1555 

LSTPTR=NXTPTR 

003265 

01555 

609* 


IF! OATWflO.GT.OlGO TO 355 

003266 

01555 

610* 

C 

• 

003266 

01555 

611* 

c 

CHECK TO SEE IF ANY LOS DATA PRESENT FOR THIS SCAN 

003266 

01556 

612* 

• 

IFCLINSAV.EQ.L INIGO TO 1585 

003271 

01560 

613* 


LIN5AV=LIN 

003275 

01560 

615* 

c 

• 

003275 

01560 

615* 

c 

TAB OUT LOG DATA BY SCAN 

003275 

01560 

616* 

c 


003275 

01561 

617* 


IF!LINHOG.LT.58)SO TO 1569 

003276 

01563 

613* 


LINH0G=0 

003302 

01565 

619* 


WRITE! LU OUT, 3015 )! ! TABBUF! J21 , J8 1 , J 2 1= 1 , 21 ) , J8= 1 , 8 ) 

003303 

01575 

620* 

15 6 9 

CONTINUE 

003316 

01576 

62i* 


JGRP=GRP+8 

003316 

01577 

622* 


LINH0G=LINHDG*JGRP-7 

003320 

01500 

623* 


URITE!LU0UT,3015 K! TABBU F! J 21 , J1 2 ), J 2 1 = 1 , 21 1,J12=9, JSRP ) 

003327 

0 15 11 

625* 


WRITE!LU0UT,3015 ILOGLIN 

00335 2 

01511 

6 25* 

C FIXED SAnPLE RATE 5 2 DATA * 12 SCAAJS=505 WORDS 

003352 

0151 1 

626* 

C 


003352 

01515 

627* 


TSCAN=T5CAN+1 

003352 

01515 

628* 


IFCTSCAN.LT.12)G0 TO 1585 

003355 


■ 



01517' 

629* 


CALL NTRAN{TAPEF,1,BUFS1Z,PLT8UF< D.WSTAT) 


003360 


01520 • 

630* 

1580 

CALL NTRAN(TAPEF,22) 


003370 


01521 

631* 


IFlUSTAT.EQ.-n&O TO 1580 


003373 


01523 

632* 


IF(USTAT.E0.BUFSI2)G0 to 15 2: 


003376 


01523 

633* 

C 



003376 


01523 

6 35* 

c 

FATAL ERROR 


003376 


01525 

6 35* 


UR1TE(LU0U:V»060)TREC,TSCAN 


003501 


01531 

6 36* 


GO TO 1500 


003510 


015 32 

637* 

1583 

TSCAN=0 


003512 

S3 

015 33 

63S* 


TREC=TREC*1 


003512 


015 35 

6 39* 


DO 1585 JT=1,BUFSI7 


003520 


015 37 

650* 

l**B5 

PLTBUF( JT)=NEG2R0 


0035 20 

O 0 

015 37 

651* 

C 

" 


003520 

t»T=| 

015 37 

652* 

c 

nORE SCANS? IF NOT READ ANOTHER INPUT RECORD 


0035 20 

^ B 

01551 

65 3* 

1585 

IF( ISCAN.lt, fnxSCAN )G0 TO 231 


003523 

■ @ '>=0 

01551 

655* 

c . 

THROUGH WITH DATA SCAN 


003523 

w~< 

0155 3 

655* 


GO TO 200 


0035 26 


0155 5 

65 6* 

1500 

CONTINUE 


0035 30 


01555 

657* 

c 



00 35 30 

is— »• W > 

01555 

658* 

c 

TAB OUT LAST DATA 


003530 


01555 

659* 

c 



0035 30 


01555 

650* 


WRITER LU0UT,3018 1 


0035 30 


01557 

651* 


UiRITE(LU0UT,3015 IT^BBUF 


0035 35 


01557 

65 2* 

cx 

CALL NTRAN( TAPEIN, 11,22) 


0035 35 


0155 2 

65 3* 


CALL NTRAN( TAPEIN, 10, 22) 


003555 


01553 

655* 


1F( TAPE2.EQ.01G0 TO 1510 


00355 1 

o 

01553 

655* 

c 



003551 

1 

31553 

656* 

C CONTINUATION TAPE 


003551 


01553 

65 7* 

C 



003551 

VO 

01'<55 

658* 


TAPFIN=TAPE2 


003553 


01556 

65 9* 


TAPE2=0 


003555 


0155/ 

660* 


CALL NTRAN( TAPEIN, 10, 22) 


003556 


01560 

661* 


IF(n0VE2.EQ.0)G0 TO 200 


003563 


01562 

662* 


CALL NTRAN( TAPEIN, 3, nOVE2) 


003565 


01563 

663* 


CALL NTRANC TAPEIN, 22) 


003572 


01565 

665* 


GO TO 200 


003576 


01565 

665* 

1510 

IF{ TSCAN.EO. 0 )G0 TO 1519 


003500 


01567 

666* 


CALL NTRAN( TAPER , 1 , BU F S 1 2 , PLTBU F( 1 ),UlSTAT) 


00 35 01 


01570 

667* 

1515 

CALL NTRANI TAPER, 22) 


0035 11 


01571 

668* 


IFCUSTAT.EO.-l )G0 TO 15 15 


003515 


015 71 

669* 

C 



0035 15 


01571 

670* 

c 

DO EOF, REWIND, AND RELEASE OF FIXED SAiAPLE RATE TAPE 

> 

0035 15 


01571 

671* 

c 



00 35 15 


015 7 3 

672* 

15 19 

IF(TREC.EQ.0)G0 TO 1528 


003520 


01575 

673* 


IF( .NOT.TAPEOICALL NTRAN( TAPER, 10,22) 


00 35 21 


01577 

675* 


1F( TAPEOICALL NTRANC TAPER, 9, 10, 22) 


003530 


01577 

675* 

c 



0035 30 


01601 

676* 


CALL NTRANC TAPER, 2,BURSIZ,PLTB'JR, INSTAT) 


003550 


01602 

67 7* 

1521 

CALL NTRANC TAPER, 22) 


003550 


01603 

678* 


IFC INSTAT. EQ.-l )GQ TO 1521 


003553 


01605 

67 9* 


IFC INSfAT.NE.BUFSrZlGO TO 1528 


003556 


01607 

680* 


WRITECLUOUT, 3015 )“LTBUR 


003561 


01607 

681* 

CX 

CALL NTRANC TAPER, 11, 22) 


003561 


01612 

682* 


CALL NTRANC TAPER, 10,22) 


003571 


01612 

683* 

c 

WRITE LINIT DATA ON TEI5? STATUS FILE CTSR) 


00357 1 


01613 

685* 

1528 

IRCLIR,R0y.LT.5 )G0 TO 1550 


00 35 7 7 


01615 

685* 


URD=NXL ini*L imROU 


003602 





01616 

686* 


CftLL NTaAN(TSF,l,URO,LimBUF( 1,1),L5TAT) 

003605 

01617 

687* 

15 30 

CALL NTRAN(TSF,22) 

003615 

Q1620 

688* 


IF(LSTAT.EQ.-1 )G0 TO 1530 

003620 

01622 

685* 


LREC=LREC+1 

0036i3 

01623 

690* 

155 0 

WRD=mXLIin*PRTRQU 

003627 

016 2‘« 

651* 


CALL NTRANC TSF, 10,22) 

003630 

0162<t 

692* 

C 


003630 

0162‘f 

693* 

c 

PRINT LimiT DATA FRQT TSF FILE 

003630 

01625 

695* 


UR I TEC LU OUT, 3017 ) 

003655 

01625 

695* 

c 


003655 

016 27 

696* 


DO 1550 JPL=1,LREC 

003660 

01632 

6 97* 


JCK=JPL 

003660 

01633 

693* 


IF(LREC.EQ.O)GO TO 1556 

003662 

01635 

699* 


IFC JCK .GE.LREC )WRO=nXL in*L IHROU 

003665 

01637 

700* 


CALL NTRANC TSF, 2, URD.LimBUFC l,l),LUSTAT) 

003672 

01650 

701* 

1555 

CALL NTRANCTSF,22) 

003702 

0165 1 

702* 


IFCLUSTAT.EQ.-l )G0 TO 1555 

003705 

01653 

703* 

155 6 

LflO!<i=uRO/nxLim 

003711 

01655 

705* 

1550 

WRITEC LUQ'JT, 3000)CCLIinBUFC J12, JX ),J12 = 1,12), JX = 1,LR0UM ' 

003715 

01656 

705* 


URITECLU0'JT,3013) 

003733 

01660 

706* 


URITECLUOU I,30l2HREC,TREC,OAY.HO'JR,niN, TinOUTC I SCAN ) 

003750 

01670 

707* 


GO TO 1900 

003753 

01670 

708* 

C 

FORinATS INPUT 

003753 

01670 

709* 

c 


00375 3 

01671 

710* 

2000 

FORCnATC 12A,6 ) 

003755 

01672 

711* 

2002 

FOR.-nATC 13A6,A2) 

003755 

01673 

712* 

2005 

FORflATC 16X,I3,1X,!2,IX,12,2C 11X,I3,1X,I2,1X,I2)) 

• 003755 

01675 

713* 

2006 

FOR^RATC 13X,I2,5C-ex, I2),A6) 

003755 

01675 

715* 

2008 

F0R.'5ATC6X,12,IX,2A6,2X, I1,5X, 12) 

C03755 

01675 

715* 

C 


003755 

01675 

716* 

c 

FORPIATS OUTPUT 

003755 

01675 

717* 

c 

• 

003755 

0:i676 

718* 

3000 

FOflflATC 12A6 ) 

003755 

01677 

719* 

3001 

F0R*5ATC 1X,13A6,A2) 

003755 

01700 

720* 

3002 

FQR.RATC'0 CSVIDR WILL EXECUTE USING INFO AS FGLLOUS:') 

003755 

01101 

721* 

'300 3 

FORMAT C'O TITLE= ',13A6,A2) 

003755 

017v12 

722* 

3005 

FQRPIATC'O START TIME DDD= ',13,' HH- ',12,' MM= ',12,' MS= ',112) 

003755 

01703 

723* 

3005 

FORMATC'O STOP TIME 000= ',l3,' HH= ',12,' MM= ',12,' M S= '.112) 

003755 

01705 

7 25* 

3006 

FORMATC'O TAPE TIME 000= ',13,' HH= ',12,' MM= ',12,' MS= ',112) 

003755 

01705 

725* 

3007 

FORMATC'O TAPEIO TAPE! WILL USE UNIT', 13) 

003755 

01706 

726* 

3008 

FORMATC'O TAPEIO TAPE2 WILL USE UNIT', 13) 

003755 

01707 

727* 

3009 

FORMATC'O TAPEIO TAPEF WILL USE UNIT’.,I3) 

003755 

C1710 

728* 

3010 

FORMATC'O CHANNELS REQUESTED ARE;'/ . 

003755 

01710 

729* 


♦' PTR LABEL DEG'/ 

003755 

01710 

730* 


*C IX, 13, 1X.2A6, IX, 13) ) 

003755 

01711 

731* 

3065 

FORMA TC ' ABSCISSA',7XE12.7,'=X1',3XE12.7, '=X2', 3XE12.7, *=X3',3X 

003755 

01711 

732* 


IE 1 2.7, '=X5 ', 3XE 1 2.7, '=X5 3XE 12.7, '=X6' ,/17XE 12.7, '=X7' ,3X£1 2.7, ' 

003755 

01711 

733* 


2=X8', 3XEI2.7, '=X9' .3XE12.7, '=X10',2XE12.7, '=XH' ,2XE12.7, ' = X12',/1 

003755 

01711 

735* 


37XE12.7, '=X13',2XEI2.7, '=X15',2XE12.7,' = X15',2XE12.7,'=X16',2XE12. 

003755 

01711 

735* 

57,'=X17' ,2XE12.7,»=X18' ,/17XEl2-7, '=X19' ,2XE12.7 , '=X20' ,2XE12.7, '= 

003755 

01711 

736* 


5X21') 

003755 

01712 

737* 

3070 

FDRMATC '0 OflO INATE ' , 7XE 1 2 . 7 , ' =Y 1 ' , 3XE 1 2 . 7 , ' = Y2 ' , 3XE 1 2 . 7 , ' =Y 3' , 3X 

003755 

01712 

733* 


1E12.7,'=Y5',3XE12.7,'=Y5',3XE12.7,’=Y6’,/1?XE12.7,'=Y7',3XE12.7, ' 

003755 

01712 

739* 


2=Y3', 3XEI2.7,'=Y9',3XE12.7, ' = Y 1 0 ' , 2XE 1 2 . 7 , ’ =Y 11 ' , 2XE 1 2 . 7 , ' =Y 1 2' , / 1 

003755 

01712 

750* 


37XE12.7, '-Y13' , 2XE 1 2 .7 , ' =Y 15 ' , 2XE 1 2 . 7 , ' = Y 15 ' , 2X E 1 2 . 7 , ' =Y 16 ' , 2XE 1 2 . 

003755 

01712 

75 1* 


97, '=Y17' ,2XE12.7,';=Y13' ,/17XEI2.7, '=Y19' ,2XE12.7, '=Y20' ,2XE12.7, '= 

003755 

01712 

75 2* 


5Y21') 

003755 



I 

INJ 


01T13 

75 3* 

30U F0H?1AT(/' COEFFICIENTS', 3XE12. 7, 'sA0',3XEl2. 7, ' = Ar,3XE12. 7, 'sAZ* 

00375$ 

01T13 

755* 

l,3XE12.7,'=A3’,3XE12.T,'=ft5',3XE12.7,'=A5' ) 

003755 

oim 

755* 

3012 FORtnftK ' INPUT REC ORO S= ' , 16 , ' OUTPUT REC QRD 5= ' , 16 , ' LAST TlflE OUT 

003755 

oini 

756* 

* IS', IX, 13, 2( IX, 12),' niLLISECONOS= ', 112 ) 

003755 

01T15 

757* 

3013 FORfnATl '1 NORnAL EXIT FOR PROGRAM CSVIOR') 

003755 

OITU 

758* 

3015 FQR?1ftT( 21A6 ) 

003755 

OITIT 

759* 

3015 FOR.'nATl ' IFIXED SAMPLE RATE RECORD ' , ( IX , 1 1 2, /, 1 0 

003755 

om? 

750* 

*E13.7,/,lOEl3.7,/,10E13.7,/,10En.7,/,El3.7,/7)) 

003755 

01T20 

751* 

3016 FORMAT! '0 END OF WORD CHARACTER £0UI=',A6) 

003755 

01T21 

752* 

3017 FORMAT! ' 1' ) 

003755 

01722 

75 3* 

3018 FORMAT! 'ICSVIDR WILL OUTPUT LAST LOS DATA SAVED',// 

003755 

01722 

755* 

*'OOUMP THE first record OF FIXED S/R TAPE',// 

003755 

01722 

755* 

•'OPRINT OUT LIMIT MODE DATA IF PRESENT') 

003755 

01722 

756* 

C 

003755 

01722 

757* 

C DIAGNOSTIC MSG AND ERROR MSS 

003755 

01722 

758* 

C 

003755 

01723 

759* 

5000 URITE!LU0UT,500l ) 

003755 

01725 

760* 

500! FORMAT! '0 **0 SV IOP**P TINTS OR DEGREE TN ERROR. WILL READ MORE DATA 

003761 

01725 

761* 

* SETS IF POSSIBLE') 

003761 

01726 

762* 

NOTAB=.TflUE. 

003761 

01727 

763* 

GO TO 50 

003763 

017 30 

765* 

5020 FORMAT! '0**CSVIOR**HAS ENCOUNTERED A BAD INPUT RECORD') 

003765 

01731 

765* 

5025 FORMAT!' THE ERROR OCCURRED TRYING TO READ RECORD' , IT, 16, 'THI 

003765 

01731 

766* 

*RTY SIX BIT WORDS WERE RETURNED') 

003765 

01732 

767* 

5030 II1=ISTCH 

003765 

017 33 

763* 

II2=ISTCH+2 

003766 

01735 

769* 

WRITE!LU0UT,5 0 35 )C OLON , I SC AN, ! BUF! 1 1 1 ) , I 1 1= 1 1 1 , 1 1 2 ) 

003770 

01755 

770* 

5035 FORMAT! '0**CSVIOR**COULO NOT FIND THE TIME CHARACTER !',A6,') 

009007 

01755 

771* 

• SCAN ',I3,IX,/,!X,15A6) 

009007 

01755 

772* 

PSCAN=PSCAN*1 

009007 

01756 

773* 

1SCAN=ISCAN*1 

009012 

01757 

775* 

ISTCH=ISTCH+l 

009015 

01750 

775* 

IF! ISCAN.GT.36 )G0 TO 200 

009020 

01752 

775* 

IF!PSCAN,GT.36 )G0 TO 200 

009023 

01755 

777* 

GO TO 231 

009026 

01755 

778* 

5050 WRITE!LUQUT,5055 )ISCAN 

009030 

01760 

779* 

5055 FORMAT! '0**CSVIDR**C0UL0 NOT FIND END OF WORD CHARACTER FOR SCAN ' 

009035 

01760 

780* 

*,I3) 

009035 

01761 

781* 

WBAD=WBAD*1 

009035 

01762 

782* 

ISTCH=ISTCH*l 

009090 

01763 

783* 

IF!WBAD.GT.37 )G0 TO 200 

009093 

01765 

785* 

5003 FORMAT! '0**CSVI0R**00E5 NOT HAVE ANY LEAD CAROS. DEFAULTS USED') 

009096 

01766 

785* 

GO TO 231 

• 009096 

01767 

786* 

5059 WRITE!LU0UT,505 1 )CHNL 

009050 

01772 

787* 

BADCHN=BADCHN+1 

009055 

01773 

788* 

IF !BADCHN.GT.100)G0 TO 1500 

009060 

01775 

799* 

LSTPTR=LSTPTR+1 

009063 

017V6 

790* 

GO TO 355 

009066 

017 7V 

791* 

5050 WRIT£!LU0UT,5051 IIDCHAN 

009.07 0 

02002 

792* 

5051 FORMAT! '0**CSVIDR**HAS AN ERROR IN RINDING CHANNEL NUMBER', 16) 

009075 

02003 

793* 

BA0CP0=BADCR0+1 

009075 

02005 

7 95* 

GO TO 50 

009100 

02005 

795* 

5052 WRITE!Lli0i*T,505 3) 

009 102 

02007 

796* 

5053 FORMAT! '0**CSVIDR**HAS AN ERROR IN FREE FIELD INPUT') 

009106 

02010 

797* 

BADCRD=BADCB0+1 

009106 

02011 

793* 

GO TO 5 0 

009 1 1 1 

02012 

799* 

5056 WRITE(LU0UT,5051)INCHAN 

009113 
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02015 

800* 

8A0CRD=BA0CRD*1 


6A1120 

02016 

801* 

GO TO 10 


00,1123 

0201? 

802* 

1057 URnE(LU0UT,1058 ) 


001125 

02021 

8'' 3* 

B0DCHR=8ADCHR*1 


- 001131 

02022 

801* 

IF{ BADCHR.GT. 100)50 TO 1500 


001131 

02021 

805* 

GO TO ICO 


001137 

02025 

806* 

1053 FORnATt 'C**CSVIOfl**COULO NOT 

FIND TYPE' ) 

001111 

02026 

807* 

1850 WRITE(LUOUT, 1851) 


001111 

02030 

808* 

1851 FORriAK '0**CSVIDR**UNABLE TO 

CONCERT DAYS TO flS' ) 

001 115 

02031 

809* 

GO TO 1900 


001115 

02032 

810* 

1860 URITE(LU0UT,1861 ) 


001117 

02031 

811* 

186 1 FQRPIAK '0**CSVI0R**'JNABLE TO 

CONVERT ns TO DAYS' ) 

00115 3 

02035 

812* 

GO TO 1900 


001153 

02036 

813* 

1900 CONTINUE 


001155 

0203T 

811* 

URITE{Ly0UT,1059)IHEC,LREC,TREC,LSTPTR,ISTCH,ISCAN 

001155 

02017 

815* 

1059 FORHATI ' **CSVIDfl** EXIT 

IREC= ',11,' LREC= ',11, 

001167 

02017 

816* 

*' TREC= ',11,' LSTPTR= ',11,' 

1STCH= ',11,' ISCAN= ',11 ) 

001167 

02050 

817* 

1060 FORilATt '0**CSV IOR**BAD FIXED 

sample RATE OUTPUT RECORu. 

001167 

02050 

818* 

• LAST REC=',I 1 ,' 5CAN=',m 


0015,7 

02050 

819* 

r* 

w 


00lle7 

02050 

820* 

c 


001167 

0205 1 

821* 

STOP 


001 167 

02052 

822* 

END 


001173 

END FOR 
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4FQR,S FD5-L75 0 36*CALCUR.CIJRV61 
FOR SE2C-I0/3!/75-17;32;26 (1.) 

SUBROUTINE CURV61 ENTRY POINT 000N16 

STORAGE USED: CJDI'M ) OOCHNSj OATAfOJ OOOT37; BLANK C0nN0N( 2) 000000 

EXTERNAL REFERENCES (BLOCK, NAME) 

0003 NERR35 


O 


STORAGE ASSIGNPIENT (BLOCK, TYPE, RELATIVE LOCATION, NAME ) 


0001 000055 llAG 

0001 000131 151S 

0001 000220 203G 

0001 000301 33L 

0000 1 0003V3 I 
0000 I 00035B K 
0000 D 000355 P 
0000 D 000052 Y 


0001 000065 122G 

0001 000155 160G 

0001 000255 215G 

0001 000315 35L 

0000 I 000351 II 
OOOO I- 000357 L 
0000 0 000355 SIGHA 


0001 000077 130G 

0001 000150 1633 

0001 000260 2203 

0000 0 000212 B 

0000 000373 INJP5 

0000 I 000337 LB 
0000 D 000125 SU!5 


0001 000105 135S 

0001 000172 1723 

0001 000335 2323 

0000 0 000350 D1V3 
0000 I 000352 II 
0000 I 000336 LS 
0000 0 000176 V 


0001 000115 152G 

0001 000200 1773 

0001 000370 2553 

0000 D 00035 3 FTJLTB 

0000 I 000352 J 
0000 I 000350 LV 
0000 0 000000 X 


00100 

1* 

C 



000019 

00101 

2* 



SUBROUTINE CURV61( SPX, SPY,N,N, SPA,A ) 

000919 

00101 

3* 

C 



000919 

00103 

5* 



PARAflETER NPTX Y=2 1 ,NDEGP 1 =6 ,NDEGP2=7 

000910 

00105 

5* 



IPIPLICIT DOUBLE PRECISION (A-H,Q-Z) 

000910 

00105 

6* 



REAL SPA 

000019 

00105 

7* 

c 


X AND Y ARE DATA ARRAYS. 

090010 

00105 

8*^ 

c 


PI IS THE DEGREE OF EQUATION TO BE FITTED. 

000910 

00105 

9* 

C 


N IS THE NUPIBER OF POINTS IN THE DATA ARAY. 

000019 

00105 

10* 

c 


A IS THE COEFFICIENTS OF THE EQUATION STARTING !JITH THE CONSTANT TER’I. 

000910 

00106 

11* 



OIPIENSION SPA( 1 ), SPX( 1 ),SPY( 1 ),X(NPTXY ),Y( NPTXY 5, SunC NPTXY ) 

000910 

00107 

12* 



DIMENSION V(NDEGP1 >,A(NDEGP1 ),B( NDEGPl ,NDE3P2 ) 

009010 

00110 

13* 



LS=2*P1 + 1 

099910 

00111 

15* 



LB=P1*2 • 

000015 

00112 

15* 



LV=PI+1 

009017 

00113 

16* 



00 3 11=1, N 

000031 

00116 

17* 



X( II )=SPX( II ) 

000055 

00117 

18* 


3 

Y(II)=SPY(in 

000956 

00121 

19* 



00 5 J=2,LS 

090965 

00125 

20* 


5 

SUPI( J ) = 0 .ODO 

090065 

00126 

21* 



SUP1( 1 )=N 

000066 

00127 

22* 



00 6 J=1,LV 

000977 

00132 

23* 


6 

v( J )=o.ono 

000077 

00135 

25* 



0016 1=1, N 

099105 

00137 

25* 



P=1.0D0 

009195 

00150 

26* 



V( 1 )=V( 1 ) + Y( I ) 

000106 

00151 

27* 



DO 13 J=2,LV 

099115 

00155 

28* 



P=X( I )*P 

000115 


■ 
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00l«l5 

29* 


sum j )=sum j )tp 

000116 

ooi'ib 

30* 

13 

V{ J)=V( J)+VC I)*P 

000120 

00150 

31* 


DO 16 J=LB,LS 

000131 

0015 3 

32* 


P=X{I)*P 

000131 

00155 

33* 

16 

sum j )=sifi5( j )*p 

000133 

00157 

35 » 

17 

00 20 1=1, LV 

000150 

00162 

35 ♦ 


DO 20 K=1,LV 

000150 

00165 

36* 


J=K*I 

000150 

00166 

37* 

20 

B(K,i )=sum j-n 

00015 3 

00171 

38* 


DO 22 K=1,LV 

000172 

00175 

39* 

22 

B(R,LB)=V(K) 

000172 

00176 

50* 

23 

00 31 L=1,LV 

000200 

00201 

51* 


0IVa=B(L,L > 

000212 

00202 

52* 


DO 26 J=L,LB 

000220 

00205 

5 3* 

26 

B(L,J )=BCL,J )/OIVB 

000220 

00207 

55* 


11=L+1 

000223 

0C2).0 

55* 


IF ( 11-LB 128,33, 33 

000226 

00213 

56* 

28 

DO 31 I=II,LV 

000231 

00216 

57* 


FnULTB=BC I,L 1 

000255 

00217 

58* 


DO 31 J=L,LB 

000260 

' 00222 

5 9* 

31 

B{ I,J)=B( I, J )-BCL, J)*Fni'JLTB 

000260 

00226 

50* 

33 

ftCLV )=B( LV,LB 1 

000301 

00227 

51* 


I=LV 

000311 

■ 00230 

52* 

35 

SIGnA^O.CDO 

000315 

00231 • 

5 3*- 


DO 37 J=I,LV 

000315 

00235 

55* 

37 

SIGnA=SIG(nA+B( 1-1,J)*A( J) 

000335 

00236 

55* 


1=1-1 

000351 

00237 

56* 


A.( I )=B( I, LB I-SIGPIA 

000355 

00 25 0 

57* 

50 

IF ( 1-1)51,51,35 

000356 

00253 

58* 

51 

DO 52 H = 1,N0EGP 

000370 

00256 

59* 

52 

SPA{ II )=A( II ) * ■ 

000370 

00250 

60* 


RETURN 

000372 

00251 
END POR 

61* 


END 

000555 



•POR,S F05-L75035*CALCUR.0Hm2t1S 
FOR SE2C-l0/3l/75-l7;33:l7 (I,) 


SUaROUTINE OHn2HS entry point 000032 


STORAGE USED: CODEC 1) OOOOMI; OATACO) 000006; BLANK C0:^n0N( 2) 000000 




s ® 


EXTERNAL REFERENCES (BLOCK, NAME) 

0003 NERR<4£ 

OOOH NERR3t 

STORAGE ASSISNnENT (BLOCK, TYPE, RELATIVE LOCATION, NAPtE) 
0000 000002 INJP6 



00101 

1* 

SUBROUTINE 0H?12nSC lOAY, IHfi,fAIN,lAS, 5 1 

000000 


001J3 

2* 

IAS-IOAY*86AOOOOO + IHR»36 00000*."nN*6 0000 

000000 

0 

1 

OOlOA 

3* 

IFCnS.LT.OlRETURN 5 

000010 

00106 

A* 

RETURN 

000017 

tv3 

00107 
END FOR 

5* 

END 

OOOOAO 
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•FOR, S F05-LT5036»CALCUR .EVAUFT 
FOR SE2C-10/31/75-57 ;33;5M U,) 


SUBROUTINE EVALFT ENTRY POINT OOOOYH 


STORAGE USED: CODHM) 0000^0-; DATA(O) 000022; BLANK C0nn0N( 2) 000000 


EXTERNAL REFERENCES (BLOCK, NAmE) 

0003 XPOI 

0004 NERR3i 


STORAGE ASSIGNnENT (BLOCK, TYPE, RELATIVE LOCATION, NAIRE) 


0001 

000015 

107G 

0000 000004 INJP5 0000 I 000002 J 0000 

0 000000 YD 


OOlOl 

!• 


SUBROUTINE EV ALFT( I,NDEG , A , VC ) 


000006 

OOlOl 

2 * 

C 



000006 

00101 

3 * 

c 

USED BY CURVE FIT OEnONSTRATION PROGRAM BlOrIT (J252-LEC 

1380 ) 

000006 

OOlOl 

4 * 

c 



000006 

00103 

5* 


DOUBLE PRECISION A,Z,YO 


000006 

00104 

6 * 


OinENSION AC I ) 


000006 

00105 

7* 


YO = A( 1 ) 


000006 

00106 

8* 


DO 35 J=1,NDEG 


000015 

00111 

9 » 

35 

YO=YO+A( J*1 )*Z**J 


000015 

00113 

10* 


YC=YD 


000026 

00114 

11* 


RETURN 


000030 

00115 

12* 


END 


000057 

END FOR 








w.- 


•FOa, S F05-L75036*CALCUR.F02FD 
FOR SE2C-iO/3U75-17;3«l:08 (0,) 


SUBROUTINE FD2FD ENTRY POINT 000265 


STORAGE USED: CODEC!) 000300; OATA(O) ODOONIi BLANK C0fln0N(2) 000000 


EXTERNAL REFERENCES (BLO'CK, NAmE')' 

0003 NERR2J 
OOON NERR35 


STORAGE assignment (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 


0002‘)'4 lOOL 

0001 

000132 1N*»G 

0001 

000051 

90L 

0001 

030176 

S2L 

0001 

000202 

81L 

000) 


000206 B6L 

0001 

00021<* 90L 

0001 

000226 

9 2L 

0001 

000232 

91L 

0001 

000236 

96L 

0000 

I 

000006 I 

0000 

000011 INJP5 

0000 

I 000007 

J 

0000 

I 000010 

K 

0000 

I -000005 

KSTI 

0000 

I 

00001 1 L 

0000 I 

000002 LSTCH 

0000 

I 000012 

n 

0000 

I 000003 

ONE 

0000 

I OOOOOO 

SIG^ 

0000 

1 

OOOOOY- SIX 

0000 I 

003005 THREE6 



• 


• 






00191 

1* 


COMPILER CFLD=R) 



000012 

00103 

2* 


SUBROUTINE F02F0 (NDCH, LINEl, ISTCH, LINE2, JSTCH) 



000012 

00103 

3* 

C 

CALLING SEQUENCE: 



000312 

00103 

1* 

C 

CALL FD2FD (NOCH, LINEl, ISTCH, LINE2, JSTCH) 



000012 

00103 

5* 

C 

UHERE: 


- 

000012 

00103 

6* 

c 

NOCH = NO. OF CHARACTERS TO MOVE. 



000012 

00103 

7* 

c 

LINEl = FIRST WORD ADDRESS'QF SOURCE LINE. 



-000012 

00103 

8* 

c 

ISTCH = STARTING CHARACTER POSITION I-N SOURCE LINE 

TQ BEGIN 


000012 

00103 

9* 

c 

MOVING FROM. 



000012 

00103 

10* 

c 

LINE2 = FIRST WORD ADDRESS OF DESTINATION LINE. 



000012 

00103 

11» 

c 

ISTCH = STARTING CHARACTER POSITION IN DESTINATION 

LINE TO 


000012 

00103 

12* 

c 

BEGIN MOVING TO. 



000012 

00103 

13* 

c 




000012 

00105 

11* 


IMPLICIT INTEGER (A-Z) 



000012 

00106 

15* 


DIMENSION LINE.K1), LINE2C1) 



000012 

00107 

16* 


KSTCH = ISTCH 

• 


000012 

00110 

17* 


LSTCH = JSTCH 



090011 

0011) 

18* 


SIGN = *1 



000016 

00112 

19* 


ONE = 1 



000020 

00113 

20* 


SIX = 6 

♦ 


000021 

00111 

21* 


TKREE6 = 36 



000023 

00115 

22* 


IF CLOCILINEK 1 )).NE.L0C(LINE2( 1))) GO TO 3 0 



000025 

00117 

23* 


IF C ISTCH. GT. JSTCH ) GO TO SO 



000031 

00121 

21* 


KSTCH = KSTCH ♦ NQCH - 1 



090031 

00122 

25* 


LSTCH = LSTCH * NOCH - 1 



009010 

00123 

26* 


SIGN = 2 



090913 

00121 

27* 


ONE = -ONE 



000915 

00125 

28* 


SIX = -SIX 



009916 

00126 

29* 


THREE6 - -THREE6 



090917 

00127 

30* 


80 I = KSTCH/6 ♦ 1 



09995 1 


iS o 


8Z- 


00130 

31* 


IF (nBD (K5TCH, 6).EQ.O) 1 

= I 

00132 

32* 


J = 11 - HOD (KSTCH, 6 1*6 


00133 

33* 


IF (HOD (KSTCH, 6).EQ.O) J 

= J 

00135 

31* - 


K = LSTCH/6 * 1 


00136 

35* 


IF CnOD aSTCH, 6 1.EQ.0) K 

= K 

00110 

36* 


L = 11 - HOD (LSTCH, 6)*6 


00111 

37* 


IF (HOD (LSTCH, 61.E0.0) L 

= L 

00113 

38* 


DO 100 n 1, NQCH 


00116 

39* 


FLO (L, 6, LI.NE2(Kn = FLD 

( J, 

00117 

10* 


J = J - SIX 


00150 

11* 


GO TO (82, 81 ), SIGN 


00151 

12* 

82 

IF (J.GT.Ol GO TO 90 


00153 

13* 


GO TO 86 


00151 

11* 

81 

IF (J.LT.36) SO TO 90 


00156 

15* 

36 

J = J ♦ THREE6 


00157 

16* 


I = I * ONE 


00160 

17* 

90 

L = L - SIX 


00161 

13* 


GO TO (92, 91), SIGN 


00162 

19* 

92 

IF {L.GT.O) GO TO 100 


00161 

50* 


GO TO 96 


00165 

51* 

91 

IF (L.LT.36 ) GO TO 100 


00167 

5 2* 

96 

L = L * THREE6 


00170 

5 3* 


K = K * ONE 


00171 ■ 

51* 

100 

CONTINUE 


00173 

55* 


RETURN 


00171 
END EQR 

56* 


END 



- l 000051 

000051 

- 36 000073 

000100 

- I 000101 

000111 

-36 000123 

000132 

6, LINEK m 00011 2 


000163 
000166 
000176 
000200 
000202 
000206 
000210 
000211 
000216 
000226 
000230 
000232 
000236 
0002 -D 
000211 
000211 
000277 




•FOB.S FD5-L75036*CALCUR,FP2FO 
FOR SE2C-10/31/75-lT;3*» :IT CO,? 

SUBROUTINE FP2F0 ENTRY POINT 000527 

STORAGE USED; CODEC 1 ) 0005H5; OATA(O) 000037; BLANK COnnON( 2) 000000 


EXTERNAL REFERENCES (BLOCK, NAME) 

0003 XPII 
OOOA NERR25 
0005 NERR3S 


CD 

I 

CO 

KO 


STORAGE 

ASSIGNnENT 

(BLOCK, TYPE 

:, RELATIVE LOG 

ATION, 1 

NAnE) 









0001 


000222 

lOOL 

0001 


00025 2 

ItOL 

0001 

000102 

127G 

0001 

000301 

177S 

0001 


000357 

iOOL 

0001 


00035 1 

210L 

0001 


000366 

220L 

0001 

000502 

230L 

0001 

000557 

2353 

0001 


000523 

300L 

0031 


0005 13 

310L 

0001 


000121 

SOL 

0001 

000130 

6 0L 

•0001 

000165 

7QL 

0000 

1 

000010 

BYTE 

0000 

I 

000003 

I 

0000 

I 

000002 

ICNT 

0000 

000016 

INJP; 

0000 

I 000005 

INTSV 

0000 

I 

000001 

ISJ 

0000 

I 

OOOOOA 

J 

0000 

I 

000007 

K 

0000 

I 000006 

NOCH'U 

0000 

I 000011 

NOCK 

0000 

I 

000000 

06C 


00101 

1* 


COnPiLER (FLO=R) 

000002 

00103 



SUBROUTINE FP2F0 (FP, NOCH, NORDP, FIELD, ISTCH) 

000002 

00103 

3* 

C 

CALLING SEQUENCE; 

000002 

00103 

5*^ 

C 

CALL FP2FD (FP, NOCH, NORDP, FIELD, ISTCH) 

000002 

0010 3 

5* 

c 

WHERE- 

000002 

00103 

6* 

c 

FP = LOCATION WHERE THE FLOATING POINT VALUE IS STORED. 

000002 

00103 

7» 

c 

NOCH = NO. OF CHAHCTERS TO BE CONVERTED TO FIELD DATA. 

000002 

00103 

8* 

c 

NOROP = NO. OF DIGITS TO BE PLACED RIGHT OF THE DECIMAL POINT. 

000002 

00103 

9* 

c 

FIELD = FIRST WORD ADDRESS OF THE DESTINATION LINE. 

000002 

00103 

10* 

c. 

ISTCH = STARTING CHARACTER POSITION IN THE DESTINATION LINE. 

000002 

00103 

11» 

c 


000002 

00105 

12» 


IMPLICIT INTEGER (A -2) 

000002 

00106 

13v 


REAL FP 

000002 

00107 

15* . 


DIMENSION FIELO(l) 

000002 

00110 

15* 


DATA 060/060/ 

000002 

00112 

16* 


IF (NOCH.LT.I NQROP + 2) ) 30 TO 300 

000002 

001 15 

17* 


ISW = 1 

000007 

00115 

18* 


ICNT = 0 

000011 

00116 

19* 


I = (ISTCH ♦ NOCH - l)/6 ♦ 1 

000012 

00117 

20* 


IF (MOD ((ISTCH * NOCH - 1), 6).EQ.O) 1=1-1 

000021 

00121 

21* 


J = 51 - MOO ((ISTCH ♦ NOCH - 1), 6 )*6 

000031 

00122 

22* 


IF (MOO ((ISTCH ♦ NOCH - 1), 6).EQ.O) J = J - 36 

000052 

00125 

23* 


INTSV = ABS ( FP )*( 10**NORDP ) ♦ 0.5 

000057 

00125 

25* 


NOCHMl = MIN ((NOCH - 1), 11) 

000070 

00126 

25* 


DO 100 K = 1, NOCHMl 

000077 

00131 

26* 


BYTE = MOO ( INTSV, 10 > 

000102 

00132 

27* 


INTSV = INTSV/10 

000105 

00133 

23* 


GO TO (50, 70), ISW 

oooin 

00135 

29* 


50 IF ( ICNT. EQ. NOROP ) GO TO 60 

000121 


-30 


0013« 

30» 

ICNT = ICNT ♦ 1 


000123 

00137 

314 

60 TO 70 


000126 

00 »0 

324 

60 ISW = 2 


000130 

00141 

334 

FLO (J, 6, flELOdl) = 6H«M««. 


000131 

00142 

34 4 

J = J ♦ 6 


000150 

00143 

354 

IF U.LE.35) GO TO TO 


000153 

00145 

364 

J = J - 36 


000156 

00146 

374 

1 = 1-1 


000161 

00147 

384 

70 FLO (J, 6, FIELD! m = OR (060, 8YTE) 


000165 

00150 

344 

J = J 4 6 


000205 

00151 

404 

IF ( J.LE.35 ) GO TO 100 


000210 

00153 

414 

J = J - 36 


000213 

00154 

4 2* 

1=1-1 


000216 

00155 

43* 

100 CONTINUE 


000222 

00157 

44* 

IF ( INTSV.GT.O) GO TO 300 


000222 

00161 

45* 

NOCK = NOCH - (NORDP ♦ 2) 


000225 

00162 

46* 

IF (NOCK.GT.O) GO TO llO 


000231 

00164 

47* 

IF (FP.LT.O) GO TO 300 


000233 

00166 

48* 

RETURN 


000236 

00167 

4 9* 

no I = ISTCH/6 ♦ 1 


000242 

00170 

50* 

IF (NODI ISTCH,6 l.EO.O) 1=1^1 


000245 

00172 

51* 

J =41 - noo ( ISTCh, 6 1*6 


000255 

00173 

52* 

IF <nOO (ISTCH, 6KEQ.0> J = J - 36 


000264 

00175 

53* 

ISU =1 


000274 

00176 

544 

00 200 K = 1, NOCK 


000301 

00201 

55* 

IF (FLO (J. 6, FIELD! in. NE.6H***«*0) GO TO 210 


000304 

00203 

56* 

ISU = 2 


000314 

00204 

57* 

FLO (J, 6, FIELOCin = 6H««*«* 


000320 

00205 

58* 

J = J - 6 


000333 

00206 

5 9* 

IF ( J.GT.O ) GO TO 200 


003336 

00210 

60* 

J = J * 36 


000340 

00211 

61* 

I = I ♦ 1 


00034 3 

00212 

62* 

200 CONTINUE 


000351 

00214 

63* 

210 IF (FP.GE.O) RETURN 


000351 

00216 

64* 

GO TO ( 300, 220 ), ISU 


000356 

00217 

65* 

220 J = J 4 6 


000366 

00220 

66* 

IF (J.LE.35) GO TO 230 


000370 

00222 

67* 

J = J - 36 


000373 

00223 

68* 

I = I - 1 


000376 

00224 

69* 

230 FLD (J, 6, FIELO(D) = 6H«**««- 


000402 

00225 

70* 

RETURN 

- 

000417 

00226 

71* 

300 I = ISTCH/6 4 1 


000423 

00227 

72* 

IF (tnOD(lSTCH,6 l.EO.O ) 1 = 1-1 


000426 

00231 

7 3* 

J = 41 - moo ( ISTCH, 6 )*6 


000436 

00232 

74* 

IF (nOD (ISTCH, 6).EQ.O) J = J - 36 


000445 

00234 

75* 

00 310 K = 1, NOCH 


000457 

00237 

76* 

FLO (J, 6, FIELD(I)) = 6H«««««* 


000464 

0024 0 

77* 

J = J - 6 • . 


000477 

00241 

78* 

IF (J.GT.O) GO TO 310 


000502 

00243 

79* 

J = J 4 36 


000504 

00244 

80* 

I = I 4 1 


000507 

00245 

81* 

310 CONTINUE 


000513 

00247 

82* 

RETURN 


000513 

00250 

83* 

END 


000544 

END FOR 






•FOH,S FD5-L75036*CALCUH.F02INT 
FOR SE2C-l0/31/75-17:3H;33 CO,) 


SUBRO'JTINE FD2INT ENTRY POINT 000215 


STQRRSE USED: CODECl) 000225; DftTA(O) 000023; BLANK COmnON(2) 000000 


eg 


CO 


EXTERNAL REFERENCES (BLOCK, NAinE) 

0003 NERR20 
0005 NERR55 
0005 NERR35 


ST0RA3E ASSISNriENT (BLOCK, TYPE, RELATIVE LOCATION, NADE ) 


0001 

000165 

lOOL 

0001 

000175 

llOL 

0001 

000176 

120L 

0001 

000107 

6 0L 

0001 

. 000123 

6 2L 

0001 

000135 

65L 

0001 

000151 

80L 

0000 

1 000010 

BYTE 

0000 

I 000003 

I 

0000- 1 
0000 I 

000005 

000006 

J 

XTEN 

0000 

I 000002 

JS’J 

ocoo 

I 000007 

K 


0001 000055 125G 

0001 000151 70L 

0000 000012 INJPS 

0000 1 000005 N'J.-n 


0001 000062 SOL 
0001 000155 75L 
0000 1 000001 isy 
0000 I 000000- Q17 


00101 

!• 


COMPILER (FLO=R> 

000005 

00103 

2* 


SUBROUTINE FD2INT CLINE, ISTCH, NOCH, VALUE, 5) 

000005 

00103 

3* 

C 

CALLING SEQUENCE: 

.000005 

00103 

5* 

c- 

CALL F02INT (LINE, ISTCH, NOCH, VALUE, 5) 

000005 

00103 

5* 

C 

WHERE: 

000005 

00103 

6* 

C 

LINE = FIRST. WORD ADDRESS OF THE SOURCE LINE. 

000005 

00103 

7* 

C 

ISTCH = STARTING CHARACTER POSITION IN THE SOURCE LINE.' 

000005 

00103 

8* 

C 

NOCH = NO. OF CHARCTERS TO BE CONVERTED TO AN INTEGER. 

000005 

00103 

9* 

C 

VALUE = LOCATION WHERE THE INTEGER VALUE IS TO BE STORED. 

000005 

00103 

10* 

C 

S = RETURN TAKEN WHEN A CHARACTER OTHER THAN A ♦, BLANK 

000005 

00103 

11* 

C 

OR NUMERIC IS DETECTED. 

000005 

00103 

12* 

C 


000005 

00105 

13* 


inPLICIT INTEGER (A-Z) 

000005 

00106 

15* 


0II5ENSIQN LINE( 15 ) 

000005 

00107 

15* 


DATA 017/017/ 

000005 

00111 

16* 


IS« = 1 

000005 

00112 

17* 


JSa = 1 

000007 

00113 

18* 


1 = ISTCH/6 ♦ 1 

000010 

00115 

19* 


IF CPIQO (ISTCH, 6).EQ.O) 1 = 1-1 

000015 

03116 

20* 


J = 51 - moo ( ISTCH, 6 )*6 

000025 

00117 

21* 


IF (NOD (ISTCH, 61.E0.0) J = J - 36 

000033 

00121 

22* 


NUN = 0 

000050 

00122 

23* 


XTEN = 0 

00005 1 

00123 

25* 


00 100 K = 1, NOCH 

000055 

00126 

25* 


BYTE = FLD ( J, 6, L INEC I ) ) 

000056 

00127 

26* 


IF (BYTE.NE.6H*'t«i*a ) GO TO 50 

000055 

00131 

27* 


BYTE - 0 

000057 

00132 

28* 


GO TO 75 

000060 

00133 

29* 


50 IF (BYTE. GE.6H***'f«0. AND. BYTE. LE, 6H««**«9 ) GO TO 70 

000062 


-32 


00135 

30* 


GO TO (60, 65 ), isw 

000077 

00136 

31* 

60 

IF {BVTE.EQ.6H444*#*) GO TO 62 

000107 

00150 

32* 


IF (BYTE.NE.6H*****-) RETURN 5 

000111 

00152 

33» 


JS« = 2 

000120 

00153 

35 • 

62 

IF (NUn.GT.O) RETURN 5 

000123 

001S5 

35* 


ISI* = 2 

000131 

00156 

36» 


60 TO 80 

000133 

00157 

37* 

65 

RETURN 5 

000135 

00150 

38* 

70 

BYTE = RND (017, BYTE) 

000151 

00151 

39* 

75 

NUI5 = XTEN ♦ BYTE 

000155 

00152 

50* 


XTEN = NUn*10 

000156 

00153 

51* 

eo 

J = J - 6 

000151 

00155 

52* 


IF ( J.GT.O) GO TO 100 

00015 3 

00156 

53* 


J = J ♦ 36 

000155 

00157 

55* 


1 = 1*1 

000160 

00160 

55* 

100 

CONTINUE 

000165 

00162 

56* 


GO TO ( 120, 110), JSN 

000165 

00163 

5 7* 

no 

NUI5 = -NUn 

000175 

00165 

5 S* 

120 

VALUE = NUm 

000176 

00165 

59* 


RETURN 

000177 

00166 

50* 


END 

000225 

END FOR 






iOEIGlNAIl PAGE G 
OP POOR QUALITY 


•FQR,S F05-LT5036*CftLCUR. 1NT2FO 
FOR SE2C-10/3U75-17:3H;‘I3 (0,) 


SUBROUTINE INT2FD EN^RY POINT 000513 

JNT2FD ENTRY POINT 000526 

STORRGE USED; CODE! J) 0005*»l; OATRCO) OOOOYO; BLANK C0nn0N(2) 000000 
COnnON BLOCKS; 

0003 FILLCH 000001 

EXTERNAL REFERENCES (BLOCK, NAinE) 


0005 NERR20 
0005 NERR3S 


CD 

1 


STORAGE ASSIGNnENT (BLOCK, TYPE, RELAT 


0001 


000131 

lOOL 

0001 

000157 

0001 


000266 

200L 

0001 

0005 32 

0001 


000357 

365L 

0001 

000355 

0000 

I 

OOOOOl 

BNKSU 

0000 

I 000006 

0000 

I 

000005 

INTSV 

0000 

I 000010 

0000 

I 

000000 

060 




IVE LOCATl 

ION, NAHEl 



125L 

0001 


000060 

133G 

0001 

25 OG 

0001 


000270 

300L 

0001 

375L 

0001 


000375 

500L 

0001 

BYTE 

0000 

I 

000002 

I 

0003 

ISU 

0003 

I 

000003 

J 

0000 



000205 

ISOL 

0001 

000220 

HOG 


000302 

325L 

0001 

000316 

35 OL 


000566 

500L 

0001 

000005 

90L 

I 

000000 

IFILL 

0003 

000013 

1NJP5 

1 

000005 

K 

0003 1 

1 000007 

NOCH'Ol 


00101 
0010 3 
00103 
00103 
50103 
00103 
00103 
0310 3 
00103 
00103 
00103 

00105 

00106 
00107 
00111 
00112 
00115 

00115 

00116 
00120 
30120 
00121 
00122 
00125 


1 * 

2» 

3* 

5» 

5* 

6 * 

7* 

8 * 

9* 

10 * 

11 * 

12 * 

13* 

15* 

15* 

16* 

17* 

18* 

19* 

20 * 

21 * 

22 * 

23* 

25* 


C 

C 

C 

C 

c 

c 

c 

c 

c 


COilPILER ( FLD = R ) 

SUBRO'JTINE INT2F0 (INT, NQCH, FIELD, ISTCH) 

CALLING. SEQUENCE ; 

call INT2FD (INT, NOCH, FIELD, ISTCH) 

WHERE: 

INT - INTEGER VALUE TO BE CONVERTED TO FIELD DATA. 

NOCH - NUNBER OF CHARACTERS. 

FIELD - FIELD THAT THE FIELD DATA INTEGER IS TO BE PLACED IN. 
ISTCH - STARTING CHARACTER POSITION IN THE FIELD THAT THE 
FIELD DATA INTEGER IS TO BE PLACED IN. 


IPIPLICIT INTEGER (A-Z) 

OInENSION FIELD( 1 ) 

DATA 060/060/ 

COnnON /FILLCH/ IFILL 
data IFILL/6H**<**6 / 

BNKSU = 1 
GO TO 90 

ENTRY JNT2FD (INT, NOCH. FIELD, ISTCH) 
BNKSU = 2 

CALCULATE POINTERS TO THE END OF THE FIELD 
90 I = ( ISTCH ♦ NOCH - I )/6 ♦ 1 

IF (nOD ((ISTCH ♦ NQCH - 1), 6).EO.O) I = 

J = 51 - nOO ((ISTCH ♦ NOCH - 1), 6 )*6 


DATA FIELD. 


OeOOOO 

050OOO 

QSOOOO 

030000 

030000 

oooeoo 

030000 

030000 

030000 

030000 

030000 

030000 

030000 

030OOO 

030000 

030000 

030000 

OOOOOl 

330002 

330002 

O30OO2 

030005 

030013 

030026 


1 


1 



-34 


00125 

25* 



IF (moo ((ISTCH ♦ NOCH - 1), 61.EQ.0) 

J = J - 36 


000037 

00127 

26* 



INTSV = INT 



000055 

00130 

27* 



IF ( INT5V.lt. 0) INTSV = -INTSV 



000056 

00132 

28« 



DO 100 K = Ir NDCH 



000060 

00135 

25* 



BYTE - (500 ( INTSV, 10) 



000065 

OOUfS 

30* 



INTSV = INTSV/10 



000071 

00137 . 

31* 



FLO U, 6, FIELO(I)) = OR ( 060, BYTE) 



500075 

00 ISO 

32* 



J = J ♦ 6 



000115 

0015 1 

33* 



IF U.LE.35) go to 100 



000117 

00153 

35* 



J = J - 36 



000122 

00155 

35* 



1 = 1-1 



000125 

00155 

36* 


100 

CONTINUE 



000131 

00157 

37* 



IF (NOCM.GT.l) SO TO 125 



000131 

00157 

38* 

C 


NO. OF CHARACTERS = 1. JU15P IF THE ORI 

GIO.NAL NO. 

IS negative. 

000131 

00151 

39* 



IF { INT.LT.O) GO TO 500 



000135 

00151 

50* 

Z 


JUI5P, IF THE WORKING NO. HAS NOT BEEN 

REDUCED TO 

ZERO. 

000135 

00153 

51* 



IF ( INTSV. GT.O) GO TO 500 



000150 

00155 

5 2* 



RETURN 

• 


000153 

00155 

5 3* 

c 


CALCULATE THE POINTERS TO THE BEGINNING OF THE FIELD DATA FIELD. 

000153 

00156 

55* 


125 

I = ISTCH/6 



000157 

00157 

55* 



IF (1500 (ISTCH, 6).NE.O) 1=1*1 



000151 

00161 

56* 



J = 51 - (5QD ( ISTCH, 6 )*6 



000161 

0016 2 

57* 



IF (1500 ( ISTCH, 6 ).EQ,0) J = j - 35 


• 

000170 

00165 

58* 



GO TO ( 150, 375 ), BNKSU 



000175 

00165 

59* 

c 


REPLACE LEADING ZEROS WITH BLANKS. 



000175 

00165 

50* 


15 0 

NOCHni = NOCH - 1 



000205 

00166 

51* 



ISW = 1 



000207 

00167 

5 2* 



00 200 K = 1, N0CHI51 



000220 

00172 

5 3* 



IF (FLO (J, 6, FIELOC I n.NE.6H*««**0) 

GO TO 300 


000223 

00175 

55* 



ISW = 2 



000233 

00175 

55* 



FLO ( J, 6, FIELD! I)) = IFILL 



000237 

00176 

56* 



J = J - 6 



00025 2 

00177 

57* 



IF C J.GT.O) GO TO 200 



000255 

00201 

58* 



J = J ♦ 35 


* 

000257 

00202 

59* 



1=1*1 



000262 

00203 

60* 


200 

CONTINUE 



000270 

00205 

61* 


300 

IF ( INTSV. GT.O) GO TO 500 



000270 

t020T 

62* 



SO 70 ( 350, 325 ), ISw 



000272 

00210 

6 3* 


325 

J = J * 6 



000302 

00211 

65* 



IF ( J.LE.35 > GO TO 350 



000305 

00213 

65* 



J = J - 36 



000307 

002 15 

66* 



1=1-1 



000312 

00215 

67* 


35 0 

IF ( INT.GE.O) GO TO 365 



000316 

00217 

68* 



IF (FLO (J, 6, FIELO( I M.NE.IFILL ) GO 

TO 500 • 


000320 

00221 

69* 



FLO (J, 6, FIELD! m = 6H«*«*«- 



000332 

00222 

70* 


365 

IFILL = 6H***«* 



000357 

00223 

71* 



RETURN 



000350 

00225 

72* 


375 

IF ( INT.GE.O ) GO TO 365 



000355 

00225 

7 3* 

c 


JU(5P TO n*a FILL, IF LEADING DIGIT IS 

NOT ZERO. 


000355 

00226 

75* 



IF (FLO (J, 6, FIELD! I )).NE.6H««*4*0) 

SO TO 500 


000356 

00226 

75* 

c 


REPLACE THE LEADING ZERO WITH A I5INUS 

SIGN. 


000356 

00230 

76* 



RETURN 



000370 

00230 

77* 

c 


NO. IS TOO LARGE TO FIT IN THE (JO. OF 

CHARACTER 

SPACES. 

000370 

00231 

78* 


500 

I = ISTCH/6 



000375 

00232 

79* 



IF !(500 (ISTCH, 6).NE.O) 1 = 1*1 



000376 

00235 

80* 



J = 51 - (500 ! ISTCH, 6 )*6 



000506 

00235 

81* 



IF ((500 (ISTCH, 5).EO.O) J = J - 36 



0005 15 


00237 

02* 

DO 500 K = 1, NQCH 

002*t2 

83* 

FLO (J, 6, FIELOCD) = 6H««««4* 

00243 

84* 

J = J - 6 

00244 

85* 

IF (J.GT.O) GO TO 500 

00246 

86* 

J = J ♦ 36 

002<»7 

87* 

1 - 1*1 

00250 

88* 

500 CONTINUE 

0025 2 

89* 

RETURN 

00253 
END FOR 

90* 

END 


000*132 
000*1 3T 
000*152 
000*155 
000*^57 
000*t&2 
C00H&6 
000*1 6 & 
0005 *f0 



<rOR,S F05-L7503i*CftLCun.«S2DAV 
F0« SE2C-10/31/75-17:34:«»9 (0,) 


SUBROUTINE nS2DAY ENTRY POINT OOOOTi 


STORAGE USED; CODE(l) 000129; DRTA(O) 000020; BLANK C0'in0N( 2) 000000 


EXTERNAL REFERENCES (BLOCK, NAHE ) 

0003 NERRH5 
0009 NERR3S 


STORAGE ASSIGNflENT (BLOCK, TYPE, RELATIVE LOCATION, NAriE ) 


0001 

000011 lOL 

0000 I 000000 lA 0000 1 000001 IS 

0000 

000010 INJP5 


ootoi 

1* 

SUBROUTINE nS2DAY( I Tin , IOAY , JHR S , J'H IN , SEC , 5 ) 



000000 

00101 

2* C 

CONVERT ni’.LISECONOS TO 000 ;HH :«in : SEC 



000000 

00103 

3* 

lA = iTin 



000000 

00109 

9*‘ 

IB = 0 



000001 

00105 

5* 

IF( lA.GE.O) GO TO 10 



000002 

00107 

6* 

'B = 1 



000009 

00110 

7* 

JA = lABS(IA) 



000006 

00111 

8* 10 

CSnTIN'JE 



000011 

00112 

9* 

lOAY = IA/86900000 



000011 

00113 

10* 

JHRS = nOOC lA, 869000001/3500000 



000019 

00119 

11* 

jniN = nOD( lA, 3500000 1/60000 



000023 

00115 

12« 

SEC i nOO( lA, 60000 1/1000. 



000032 

OOlU 

13* 

IF( IB.EO.Ol RETURN 



000092 

00120 

19* 

IDAY=-IDAV 



000097 

00121 

15* 

JHRS = - JHRS 



000051 

00122 

16* 

jniN = -JniN 



000053 

00123 

17* 

SEC = -SEC 



000055 

00129 

18* 

RETURN 5 



000057 

00125 
END FOR 

19* 

END 



000123 



•FOR/S FD5-L75036*CftLCUR.SCHCHR 
FOR SE7C-l0/31/75-I7:3'»:56 (0,) 


SUBROUTINE SCHCHR ENTRY POINT 000126 

STORAGE USED; CODE(l) 00QH6; OATA(O) 000022; BLANK C0snn0NC 2) 000000 


sm 

m 


EXTERNAL REFERENCES (BLOCK, NAflE ) 



0003 

OOOA 


NERRA$ 

NERR34 



STORAGE ASSIGNMENT 

(BLOCK, TYPE, RELATIVE LOCATION, NAME) 










0001 

000067 

I 

OOL 

0001 OOOOAO 115G 0001 000100 150L 0000 I 000000 I 

0000 0 

ss 

0000 

1 000001 

J 


0000 I 000002 K 







• 



00101 

1* 



COMPILER (FLO=R) 

000005 


00103 

2* 



SUBROUTINE SCHCHR (IFIELD, ISTCH, NOCH, ICHAR, NTHCHR, 5) 

000005 


00103 

3* 

C 



000005 


00103 

A* 

C 


CALLING SEQUENCE: 

000005 


00103 

5* 

C 


CALL SCHCHR (IFIELD, ISTCH, NOCH, ICHAR, NTHCHR, 5) 

000005 


00103 

6* 

C 


WHERE : 

000005 


00103 

T* 

c 


IFIELD - THE FIELD TO BE SEARCHED FOR A COMPARE. 

000005 


00103 

8* 

c 


ISTCH - THE STARTING CHARACTER POSITION IN IFIELD WHERE THE 

000005 


00103 

9* 

c 


SEARCH IS TO BEGIN. 

000005 


00103 

10* 

c 


NOCH - THE NO. OF CHARACTERS BEGINNING IN IFIELD AT CHATIACTER 

0(30005 


0010 3 

11* 

c 


POSITION ISTCH TO SEARCH. 

000005 


00103 

12* 

c 


ICHAR - THE CHARACTER FOR WHICH IFIELD IS TO BE SEARCHED FOR. 

000005 


00103 

13* 

c 


NTHCHR - IF A COMPARISION IS MADE, THE CHARACTER POSITION IN 

000005 


00103 

lA* 

c 


IFIELD WHERE THE COMPARISION WAS MADE IS STORED. 

000005 


00103 

15* 

c 


5 - THE STATEMENT RETURN IF A COMPARISION WAS NOT MADE. 

000005 


00103 

16* 

c 


NORMAL RETURN. 

000005 


00103 

17* 

c 



000005 


00105 

18* 



DIMENSION IFIELCd) 

000005 


00106 

19* 



I = ISTCH/6 ^ 1 

0000C5 


00^07 

20* 



IF (MOO dSTCH, 6).EQ.O) 1=1-1 

000011 


oom 

21* 



7=91 - MOD ( ISTCH, 6 )*6 

000021 


00112 

22* 



IF (MOD (ISTCH, 6).EQ.O) J = J - 36 

000030 


OOllA 

23* 



DO 100 K = 1, NOCH 

000090 


00117 

2A* 



IF (FLD (J, 6, IFIELOC I n.EQ.ICHAR) GO TO 150 

00009 3 


00121 

25* 



J = J - 6 

00005 3 


00122 

26* 



IF (J.GT.O) GO TO 100 

000056 


0012‘l 

27* 



J = J ♦ 36 

000060 


00125 

28* 



1 = 1*1 

000063 


00126 

29* 


10« 

CONTINUE 

000070 


00130 

30* 



NTHCHR = ISTCH ♦ NOCH 

000070 


00131 

31* 



RETURN 6 

000073 


00132 

32* 


150 

NTHCHR = (I - 13*6 * (91 - J3/6 

000100 


00133 

33* 



RETURN 

000107 



-38 



0013^ 3^* END 

END FOR ’ 

•BRKPT PRINTS 


OOOINS 


a 





APPRNDIX II 


FLOW CHARTS 





ffUj, fTY 


H-1 











CALL ^D2FP 


CONVERT. CHARACTERS 
6 THROUGH 12 FROM FIELDATA . 

.TO Floating point / 



CALL FP2FD 


CONVERT FROM 
FLOATING POINT 
TO FIELDATA 


CALL FD2FD 


FORMAT THE 
LIMITS DATA TAB 


PLACE LIMITS DATA 
IN MASS STORAGE 




' 


BLANK OUT 
PRINTLINE 




H-2 












STORH THE DATA 
IN THE PLTBUF 
BUFFER BY 
CHANNEL NUMBER 


/^WRITE\ 
^THE DATA> 
ON THE 
L OUTPUT / 

Vtape *• 


CALI. FP2FD 
CONVERT FROM 
FLOATING POINT 
TO FIELDATA 


FILL THE PLTBUF 
BUFFER WITH 
DEFAULT VALUES 


CALL l■•D2FD 
FORMAT THE 
LOG DATA TAB 


ARE 

MORE 

SCANS 

NEEDED 


IS 

THE LOG 
DATA LINE 
COMPLETE 


PRINT LOG DATA TAB ' 
CHANNELS 1 THROUGH 10 


BLANK OUT 
PRINT LINES 



ARE MORE 
CHANNELS 
NEEDED 


'^WRITE^ 
THE DATA 
ON THE 
OUTPUT ^ 
VTAPE ^ 


IS 

PLTBUF 




PRINT OUTPUT 

summary 


■ r.' "I 










APPENDIX I 


CORRESPONDENCE 



rHIS FORM MUST BE COMPlETEC BY TYPEWRITER 


0 1 4 

JSC 

m 7 PROGRAM NO 

Q939 

JSC COMPUTER PROGRAM ABSTRACT 

01 14 DATE (MMDDYYI^ 

12-3-75 

1 01 20 T1TI.E Of PROGRAM (62 CH AR A C T ERS MAXIMUM) 

nT^Tnir o\/orpr*vio \TrT\kr% rvArpA m-nTviTr»TiTr\\T 

0 172 SYMBOUC NAME 

(9 characters 

MAXIMUM) 

CSVIDR 

PARENT PROGRAM | 




02 16 SITE 

02 19 

proor am no 


02 26 

02 27 

02 32 

CAT- 

LANCUAliE 

LANGUAGE 

EGORV 

NO.I 

FOR 

NO. 2 

Iq, I 



V 



02 37 KEY WORDS (8 MAXIMUM SEPARATED BY COMMAS! 


Data Reduction, Crew Systems, UNIVAC EXEC 8, Calibration 


WHOM TO CONTACT ABOUT THE PROGRAM 


(IS U CONTACT I LAST 
N AMEI 


W. R. Lacy 


|05 28 SITE 

JSC 


OS 3 in RON 

cooe 

FD5 


09 39 PRCUECT NO 

4201 


09 45 NASA 

center 


05 46 STATUS 


Qa, under development] 
□ B. operational 

a C. CCMPLFTEO 


□ 

□ 


05 49 

A. THIS PROuRAM 
IS NOT FOR 
SH ARIN<i 
R, UMIThD 

SH ARINU ^ SF E 
ABSTRAC T) 


DATES 


05 58 REVISION CODE 


tiME AND COST FOR DEVELPOMENT 


05 no 

INITIATED 
MMY Y 

0975 


Q9 94 

completed 

MMY Y 


1275 


□ A. rkvision 
Q R. CANCELLATION 


09 99 MAN-MONTHS 


1 -H.A* 


99 60 61 62 63 


09 6 4 MAO^E HOURS 

I l2 i 


64 69 66 6? 66 


05 69 CQKT^TER 
TYPE 


09 74TOTAL TOST 
(DOLLARS) 


] „J , J— LI 


74 75 76 77 76 79 «0 


C ARD 
NUMBER 


ELITE MARGIN 


ABSTRAC! 


PIC A MARGIN 


CSyiDR is a special purpose data reduction progran written 


tQ retrieve, calibrate and...tahu.latfi data acquired, from, the- 

T*?-2 ~L. ^ ^ ^ • - ^ ^ • -r» 


Vidar-Autodata. -Eight Processing- .System ideated... in .Building 


Jl 


CSVTDR is designed to require less than 20K enre and llsp-s_ 


mass., Storage ta reduce use o.f tape-drives and nermit nptimum. 

^ ^ ^ Trvmrs/n Twxrr*«x-i itti-t * x *■ - 


access to the UNIVAC EXEC VIII system. 


. 'P ie..Xnpilt._tap.a_f,oiiiiat is 6 bit ..BCD. All . d ata is converted 

from BCD to tield data since the majority of the data are 


output without further conversion. 


Optional output is a fixed sample rate tape containing scan«^ 


Qf . time -With calibrated data 


IM 


Rl I A ted OOCUMtN TATION (66 CHARACTERS MAXIMUM SEPARATEFACHREF BY COMMAS) 


"i 


1Q417, FIT73.~J^. BIQFJT 


JSC Form )42(Aug73) 


nasa-3'SC 


I-l 
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1.0 IDENTIFICATION 

Title: Software Development for Vidar Data Acquisition System 

T. A. No.: 20 

T.O. /J.O. : 83-157 

» 

2.0 RESPONSIBILITIES 

Lockheed Electronics Company will gather the requirements and 
provide the analysis and programming associated with this task. 


3.0 DESCRIPTION 

3 . 1 Task Purpose and Scope 

The purpose of this task is to develop the capability of pro- 
cessing data recorded at the Crew Systems Test Facility in 
Building 7. Data from long-term tests of Shuttle Crew Equip- 
ment will be recorded on 7-track computer compatible tapes by 
the Vidar Autodata Processing System. The capability will be 
developed to tabulate selected parameters and to generate a 
fixed sample rate tape from which plots can be made. 

3 . 2 Planned Approach 

A new program will be written to retrieve, calibrate and 
tabulate the data. A fixed sample rate tape will also be 
generated and used as input to a general purpose plot pro- 
gram. The new program will be written in FORTRAN to be run 
on the UNIVAC 1108/1110 computers and will use the EXEC 8 
operating system. 

Specifications for the input tape format, calibrations to be 
made, and program outputs are attached. 


4.0 SCHEDULES AND MILESTONES 
Program Development 


Oral design review 8/28/75 
Coding and checkout complete 9/24/75 
Validation complete 10/1/75 

Program Documentation 

To Tech Pubs 10/15/75 
To NASA (Review) 10/29/75 
Publication 11/17/75 


1-3 



5.0 RESOURCES 


Estimated resources required are: 


Man-Hours 

Analysis 
Programming 
Validation 
Tech Pubs 


80 

240 

20 

50 

390 


Computer Hours 

Univac 1110/1108 EXEC 8 - 3.0 hrs. 




